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1.  Introduction 

The  Program  in  Logistics  staff  started  work  on  the  Statistical 
Retrieval  System  (SRS) /Rate  Generator  (RG)  in  July  1973.  The  project 
resulted  from  discussions  between  Headquarters,  Marine  Corps  (HQMC)  and 
the  Research  staff.  The  initial  direction  of  the  effort  was  provided  by 
a work  statement  [1].  Further  direction  was  provided  by  a study  directive 
[2]. 

At  the  end  of  the  analysis  phase,  Reference  [3]  was  prepared 
describing  the  analysis  and  recommending  continuing  with  a system  design. 

The  paper  led  to  the  preliminary  design  of  the  system  and  some  experimental 
programming  to  test  some  key  design  concepts. 

The  final  system  design  was  described  in  a systems  specification 
document  [4],  All  effort  since  that  time  has  been  directed  toward  pro- 
gramming, debugging  and  creating  the  SRS  history  file.  A user  manual  gives 
an  overview  of  the  system  and  describes  how  to  run  each  of  the  programs  [5]. 

2.  Discussion 

The  SRS  history  file  is  the  key  to  the  SRS/RG  system.  The  file  is 

composed  of  one  record  for  each  Marine.  Each  record  is  variable  in  length, 
growing  to  contain  all  instances  of  selected  significant  events  during  the 
career  of  the  Marine. 
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Om1  o t the  primary  goals  in  designing  SRS  was  to  minimize  any 
disruptions  of  the  already  existing  systems.  This  goal  has  been  realized. 
SRS  requires  input  from  the  RAMS  files  and  from  the  Transaction  Retrieval 
System  (TRS)  and  from  the  HMF  for  validation.  No  changes  were  required  to 
these  systems  in  supporting  SRS.  It  should  be  noted  that  any  future  change 
to  the  data  records  of  these  systems  could  have  an  impact  on  SRS. 

llie  SRS  history  file  is  a sequential  file.  The  file  depends  on 
batch  processing  for  the  preliminary  and  updating  processes.  The  SRS 
history  file  has  never  been  intended  as  an  on-line  file  for  inquiry 
purposes.  The  intended  output  of  the  SRS/Rii  system  is  sums,  counts,  pro- 
files, rates,  averages,  i.e.,  aggregate  information. 

In  its  present  form  SRS  contains  13  record  areas.  The  record  can 
be  expanded  to  15  areas  without  major  reprogramming  required.  The  programs 
have  been  written  using  a top-down,  modular  approach  which  will  facilitate 
maintenance/ changes  to  the  system. 

3 ._  juimma  rv 

Appendix  A Is  a Program  Manual  describing  the  programs  in  detail 
for  programmers  who  will  be  working  with  the  system  in  the  future. 

Appendix  R is  a Data  Element  Dictionary  for  all  the  fields  in  the 
SRS  History  Record.  This  dictionary  is  given  in  alphabetical  order  on  the 
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SECTION  l.  OBJECTIVE 


1.1  Background.  Work  on  Che  Statistical  Retrieval  System  (SRS)  and  Rate 
Generator  (RG)  started  in  July  1973.  The  project  is  a result  of  discussions 
between  HQMC  staff  and  the  research  staff  of  Program  in  Logistics,  The 
George  Washington  University.  The  initial  direction  of  the  effort  was 
provided  by  a WORK  STATEMENT : Statistical  Retrieval  System/Automated  Rate 


Generator  published  by  the  HQMC  staff  and  received  by  the  research  staff 
24  April  1973.  Additional  guidance  was  provided  by  STUDY  DIRECTIVE: 
Determination  of  Data  Requirements  for  the  Statistical  Retrieval  System/ 


Rate  Generator  (FY74) , also  written  by  HQMC  staff  (July  1973). 

At  the  end  of  the  analysis  phase  of  the  project  the  research  staff 
produced  a Technical  Memorandum  (Serial  TM-65211) : Creating  a Personnel 
Data  Base  with  a Time  Dimension  for  the  Marine  Corps  (30  June  1974).  This 
memorandum  led  to  the  design  of  the  system  and  some  preliminary  programming 
to  ensure  that  certain  key  design  concepts  were  supportable. 

The  system  design  was  described  in  a document  SYSTEMS  SPECIFICATION: 
Statistical  Retrieval  System  and  Rate  Generator  (9  June  1976).  This 
document  also  described  the  interfaces  with  present  systems  and  presented 
the  logic  of  the  proposed  computer  programs  required  by  the  system. 

At  the  end  of  the  programming  phase  the  system  was  implemented  on 
the  computer  at  HQMC.  The  use  of  the  system  is  described  in  STATISTICAL 
RETRIEVAL  SYSTEM  AND  RATE  GENERATOR:  COMMAND/MANAGEMENT  MANUAL  (30  September 


1977).  Some  of  the  information  on  the  use  of  the  system  such  as  job  control 
language  (JCL)  required,  error  codes,  etc.  will  be  repeated  in  this  docu- 
ment for  clarity  and  completeness. 


1.2  Purpose.  Parts  1 and  2 of  this  document  provide  programming/user 
personnel  with  background  and  overview  information  regarding  the  SRS/RG. 
Part  3 will  provide  more  detailed  information  on  each  individual  program; 
information  that  is  oriented  toward  maintenance/changes  to  the  programs, 
should  changes  be  necessary  in  the  future.  A separate  document  (Command/ 
Management  Manual)  describes  the  system  for  users. 

Tills  document  and  the  Command /Management  Manual  are  submitted  in 
fulfillment  of  the  project  effort. 
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.’.l  Ph  l losophv . The  SKS  history  tile  Is  t li»'  key  !»'  (In'  SKS/Rll  system. 

The  tile  Is  composed  cl  one  i «*»•*>»  «l  lei  each  Mm  Inc.  T'.uch  record  In 
variable  ill  length,  glowing  I c contain  .ill  instances  cl  sc  l or  t e.l  stgnltl 
fiini  events  during  the  cateei  cl  the  Mm  Inc  (see  Sect  ten  lei  tin’ 

detailed  contents  cl  t lie  record). 

One  cl  the  primary  goals  In  des  I nn  I ng  SKS  wan  to  mlnlml.-e  anv 
disruptions  ot  the  already  existing  systems.  This  >ioal  has  heen  realised. 
SKS  re(|nires  Input  tv  cm  the  RAMS  tiles. the  Transact  ton  Retrieval  System 
( TRS)  , and  th»>  HMK  lot  validation.  No  changes  were  reunited  to  these 
systems  In  support  (up  SKS.  It  should  he  noted  that  anv  Inline  changes  to 
the  data  records  cl  these  systems  could  have  an  Impact  on  SKS. 

The  SKS  history  I lie  Is  a soi|nenl  lal  I lie.  The  tile  depends  on 
hatch  processing  for  the  preliminary  and  updating  processes.  The  SKS 
history  tile  has  nevei  heen  Intended  as  an  on  line  I lie  lot  linjiilrv 
purposes.  The  intended  output  cl  the  SKS/Kh  system  Is  sums,  counts, 
pretties,  rates  averages,  l.e.,  aggregate  In  I 01  mat  I on. 

In  Its  present  term  SKS  contains  I I record  a teas  (the  areas  are 
listed  In  Section  .’..').  The  record  can  he  expanded  to  I S areas  without 
extensive  i .'programming  reipilied.  The  programs  have  heen  written  using 
a top  down,  modulai  appt  cat'll  which  will  lac  1 1 (talc  mn  int  cnauec/c  hauges  to 
the  system.  The  1*01101.  verb  'TTRT't'RM'  has  heen  used  extensively  which  helps 
to  Isolate  modules  ot  logic. 

Mac  to  overview.  The  SKS  history  I lie  Is  a longitudinal  historical 
tile.  Kadi  new  event  lot  a portlculai  Marine  Is  added  to  the  record  1 01 
that  Marine  without  ties!  roving  the  pievlous  Intoimallon.  The  lot  lowing 
Is  a description  ot  the  contents  ot  the  records  In  SKS. 

There  are  l 'i  areas  In  tin*  SKS  record  (I  I reserved  and  .’  spares). 

The  record  areas  are: 


I'M  004.’ I 


I.  I' l xml 
.’ . Soort'H 

l.  Ml  1 It  in  v I ilni'at  Ion 

4.  Kill  1st  mi'll  t 
KxU'UhIoiim 

0.  Ot  .nil's  v Hanks  I 

1.  Oliilul  lu'i  l .'i'll  AOni'in  ns  tsltoi  t\ 

5.  Onaut  lioi  I .*.»■» I Al'si'iii  i's  (l.onn) 
'>.  Oi'mi'i  l I on 

0 . 1 1 ails  1 1' t m 

I . Tin  On  I i'IU'o 
MOS 

I.  Ill'IlllM 

A.  >s  is.  Spawn 


Tin'  II  xml  ,n «'.  i .ipi'i'.ii  s nnlv  iiiii'i'  In  I'.ii'li  ii'i'i'iil  ami  l«  fount  ant  In 
li'iinlli.  It  i-nnlaliiM  ii'italn  .tallr  1 n I m mat  ton , sin'll  an  mox,  vart',  ilati' 
ol  Oil  Hi.  oil'.,  ami  Minin'  I'lian^oaO  1 1'  inlorinat  Ion  nmli  an  mimin' r ol  ilepon- 
ilonl  s nil  l on!  I v , Olllol  MOS,  I'lviltail  i'tl  Hi- .1 1 Ion  i- ii  l i on!  I v , i'ti'.  Till' 

Oft  a I 1 oil  ion!  flit  m ot  tlio  I' l xml  aii'.i  aio  an  tol  lows'. 

I.  Alfa  fount  talili'.  t,A  taOlo  ol  ronntfi.n  imlliatlnn  how  many 
i op  I I f.il  I ohm  I hoif  an1  ol  o.n  Ii  ol  t ho  vailahlo  aroan.) 

Ml  0 (SSNl 
I.  Nairn' 

4 . In  1 1 la  I m 
Kaii' 

0.  Sox 

1.  I' l Imlf  Ot  oii|' 

H . Iloiiif  Stall' 

‘i.  Ilonii'  t'oinil  v 

ID.  Oat  i'  ol  III  i t h 

I I . Al'AOHO  , 

I.'.  Ait  ml  I TAS 

I I.  I’KIIO 

14,  Ot.iilnat  lon/Si'|'.ii  at  Ion  Oaio 

15.  Oi.nliiai  lon/Si'i'.ii  at  Ion  llap 
It'.  MtV  Knl  1m«  i'il  A I 

I/.  Only  limit  at  tnt  i v 
IS.  0 i t I i.*  i'll  mIi  1 1' 

I '• . Mat  1 1 a I St  at  nn 

.’0.  Niimln'i  ol  IX'i't'inli'iit  m at  l ilt  i s' 

.’I.  Nllllll'i'l  Ol  IH'l't'mlf  lit  M I 'll  I I i'll  t I v 

I'lvlllan  Ciliii.it  Ion  at  C it t i \ 

.’I.  i’lvlllan  I'.tliii'.it  ton  I'nnont  Iv 
I’loptam  l nl  Inti'il  To i 
Ill  I lo l MOS 

.’ t' . IIM !•’  Si'iii  i i'  I'lap, 

Af  t I v 1 1 v/ 1 naf  t I vi>  KI a# 

.’H.  t'oliot  t Oati> 

KAMS  IM  ap 

10.  I.ant  t'liannf  IVito 

Am  ol  Mail'll  I *>/H,  thin  I lo  Cl  In  Txptrat Ion  ol  Tniiont  Toni  t art  tm'i'  Appoint  lx 

I 
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The  area  count  table  is  a set  of  15  counters.  The  counters  are 
in  packed  decimal  form  (computat ional-3)  to  be  compatible  with  MARK  IV 
requ i foment s . Kach  counter  occupies  two  bytes.  The  date  of  birth,  AFADBD, 
PEBD,  and  last  change  date  are  all  packed-decimal  fields  (computat Iona  1-3) 
occupy inn  four  bytes.  All  other  fields  are  in  display  form  (picture  X). 

The  Scores  area  appears  only  once  and  contains  the  following 

areas : 


1 . 

A EKES 

Form  Number 

-> 

A EEES 

Scores 

3. 

A FEES 

Mental  Croup  Score 

4 . 

A FEES 

Test  Flag 

5. 

Depot 

Form  Number 

b. 

Depot 

Scores 

7. 

Depot 

CT  OCT  Score 

8. 

Depot 

Test  Date 

q. 

Typing 

10. 

KDPT 

11. 

At  AT 

All  of  the  fields  in  the  Scores  area  are  in  display  form  (picture  X). 

I he  Military  Education  may  appear  aero  to  twenty  times.  Presently  the 
IKS  does  not  provide  Information  on  military  schools.  When  the  school 
information  is  available  it  will  be  included  in  the  SRS  history  record. 

The  Enlistment  area  may  appear  one  to  twenty  times  and  contains  the 
following  data: 

1.  Source  of  Entry  Codes 

2 . bate  of  Enlistment 

1.  l.ongth  of  Enlistment 
4.  Component  Code 
■>.  Separat  ton  Code 
b.  Reenlistment  Indicator 
7.  Separation  bate 

The  date  ol  enlistment  and  separation  date  are  in  packed  decimal  (computa- 
tional-!) lorm.  All  other  fields  are  display  types. 
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The  Extension  area  may  appear  zero  to  nine  times  and  contains  the 
following  fields: 

1.  Total  Months  of  Extensions 

2.  Total  Number  of  Extensions 

3.  Date  of  Latest  Extension 

4.  Months  of  Latest  Extension 

5.  Enlistment  Cross  Reference  Elag 

The  date  of  latest  extension  is  packed  decimal.  All  other  fields  are 
display  items. 

The  Grades  area  may  appear  one  to  twenty  times  and  contains  the 
following  fields: 


1.  Grade  (Rank) 

2.  Date  of  Rank 

The  date  of  rank  is  a packed  decimal  field.  The  rank  is  a display  item. 

The  Short  Unauthorized  Absence  area  may  appear  from  zero  to  thirty 
times  and  contains  the  following  fields: 

1.  Date  of  Unauthorized  Absence 

2.  Status  Flag 

The  date  of  unauthorized  absence  is  a packed  decimal  field.  Status  flag 
is  a display  item. 


The  Long  Unauthorized  Absence  area  may  appear  from  zero  to  thirty 
times  and  contains  the  following  fields: 

1.  Date  to  Unauthorized  Absence 

2.  Date  from  Unauthorized  Absence 

3.  Status  Flag 

The  dates  are  packed  decimal  fields.  The  status  flag  is  a display  item. 

The  Desertion  area  may  appear  from  zero  to  twenty  times  and  contains 
the  following  fields: 

1.  Date  of  Desertion 

2.  Date  from  Desertion 

Both  fields  are  packed  decimal. 
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The  Transfers  area  may  appear  from  one  to  sixty  times  and  contains 
the  following  fields: 

1.  Former  MCI' 

2.  Present  MCC 

3.  RUC 

4.  Begin  Date 

5.  Strength  Category 

The  begin  date  is  packed  decimal.  All  other  fields  are  display  items. 

The  Turbulence  area  may  appear  from  zero  to  twenty  times  and  contains 
the  following  fields: 

1.  Present  MCC 

2.  Former  MCC 

3.  Intended  Transfer  Date 

4.  Date  Current  Tour  Began 
').  Date  of  Action 

6.  Reason  Code 

7.  Tour  Control  Factor 

8.  PCS  Cost  Code 

9.  Trainee  Flag 

10.  Reason  Flag 

11.  Last  Date  Detached 

12.  Geographical  Location  Code 

1 1.  Geographical  Date  Current  Tour  Began 

The  Intended  transfer  date,  date  current  tour  began,  date  of  action,  last 
date  detached,  and  geographical  date  current  tour  began  are  all  packed 
decimal.  All  other  fields  are  display  items. 

The  MOS  area  may  appear  from  one  to  twenty  t imes  and  contains  the 
following  fields: 

1.  Primary  MOS 

2.  MOS  Date 

The  MOS  date  is  packed  decimal.  The  Primary  MOS  field  is  display. 

2.3  System  Flow  Chart.  The  system  flow  chart  shows  the  interrelationships 
and  inputs/outputs  of  the  programs /processes  in  the  SRS  system  for  updating. 
Kach  rectangular  box  on  the  flow  chart  represents  either  a program  or  a 
sort/merge  process.  Kach  box  contains  the  program/process  sequence  number 


r 
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which,  when  matched  with  the  following  table,  will  give  tlie  name  of  the 
program  or  process.  The  following  table  shows  the  recommended  sequence  of 


job  execution  for  the  update  process 

1. 

SRSX239 

2. 

SRSE239 

3. 

SRS239 

4. 

SR.SX.ll) 

5. 

Merge  XJD  and  X239  output 

f>. 

SRSTSSN 

7. 

Merge  TSSN  output 

8. 

SRSHSSN 

9. 

Merge  HSSN  output 

10. 

SRSUPDT 

11. 

Merge  archives 

12. 

SRSVHMK 

13. 

SRSIIPDXX 

14. 

Final  merge 

The  following  chart  shows  the  actual  relationships  among  the 
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SECriON  J.  PROGRAM  DESCRIPTIONS 

1.1.1  Program  SRSX2 Id.  Tills  program  is  the  first  to  he  run  in  each  cycle. 
Each  cycle  will  be  run  on  a quarterly  basis.  The  purpose  of  this  program 
is  t o read  an  input  tape  file  of  transaction  records  and  extract  records 
for  two  output  files.  One  of  the  files  that  is  output  is  made  up  of 
transactions  that  are  used  solely  for  changing  Social  Security  Numbers 
(Mills).  All  other  transactions  are  output  onto  a separate  file. 

3.1.2  Input.  Input  to  SRSX2  Id  is  the  Transaction  Retrieval  System  (TRS) 
tile  that  contains  the  "regular"  transactions  i.e.,  transactions  containing 
Type  Change  Codes  (TCCs)  of  A- , 1)-,  E- , R- , and  U-type. 

3.1.  ' Source  Program,  following  is  a listing  of  the  source  statements 
for  SRSX239: 


C5/23/78  INPUT  .ISTIfiC  AUTOF  LOW  CHART  SET  - SRS  EXTRACT  TCC»23S  R"DS 


06/20/70  INPUT  LISTING  AUTOTLO*  CHART  SET  - SRS  EXTPaCT  TCC«239  RCOS 
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06/28/78  J>»P0T  LISTING  AUT0?10*  CHART  SET  - SRS  EXTRACT  TCC«239  RCOS 
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06/28/70  INPUT  LISTING  AUTOTLOR  CHART  SET  - SRS  EXTRACT  TCC«239  RCOS 


05/28/78  INPUT  LlSTIiiC  AiiTOF  LOW  CHART  SET  - SRS  EXTRACT  TCC«239 


... 
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08/28/78  INPUT  LISTING  AUT0?10P  CHART  SET  - SRS  EXTRACT  TCC*239  R 


06/28/76  INPUT  LISTING  AUTOrLO*  CHART  SET  • SRS  EXTRACT  TC0*?39  PCLS 
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06/28/7B  INPUT  LISTtllC  »UTOiLOW  CHART  SET  - SRS  EXTRACT  TCC*239  RCOS 


06/28/78  INPUT  LISTING  AUTOHO*  CHART  SET  - SRS  E/TF»CT  TCC.J39  RCOS 


06/28/73  INPUT  LISTING  AU10-L0W  CHART  SET  - SRS  EXTRACT  TCC=239  RODS 


C6/28/78  INPjf  LISTING  AUT07L0*  CHART  SET  - SSS  EXTRACT  TCC*239  RCOS 


06/28/78  INPUT  ClSTIfjC  AUTOFIOW  CHART  SET  - SRS  EXTRACT  TCC=239  RCOS 
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CHART  TITLE  - PROCEDURE  OIVIS  ON 
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06/28/78  Auxonow  CHART  SET  - SRS  EXTRACT  TCC*239  R'OS  »A(, 


’ 


05/28/78  AUTOflOW  CHART  SET  - S»S  EXTRACT  TCC*239  RCDS 


06/28/78  AUTOFLOW  CHART  SET  - SRS  EXTRACT  TCC*239  RCDS  PAGE  09 
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3.1.5  Output.  The  transaction  statistics  records  that  are  input  to  SRSX239 
are  split  into  two  outputs.  One  output  is  written  onto  tape.  This  tape 
contains  all  the  regular  stats  (except  JD-  and  JP-type)  that  will  be  used 
in  updating  the  SRS  history  file.  This  tape  will  be  used  as  input  to  the 
"Merge  XJD  and  X239"  process. 

The  second  output  from  SRSX239  is  written  onto  a disk  file.  This 
file  contains  all  the  transactions  used  for  changing  social  security 
(Military  Identification)  numbers.  These  transactions  are  identified  by 
a Type  Change  Code  (TCC)  of  AN  or  R1  and  a Type  Transaction  Code  (TTC)  of 
239.  The  R1  transaction  for  a given  individual  contains  the  old  SSN.  The 
AN  transaction  contains  the  new  SSN.  By  pairing  up  the  two  records  in  a 
later  step  (by  sorting  them  together  on  initials  and  date  of  birth)  the 
history  record  and  appropriate  transaction  records  can  have  the  new  SSN 
inserted.  This  disk  data  set  will  be  the  input  to  program  SRSE239  after 
the  sorting  mentioned  above. 

The  sample  of  the  printer  output  for  program  SRSX239  follows! 
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3.1.6  Job  Control  Language  for  Execution  of  Program.  The  following  listing 
shows  the  complete  set  of  JCL  and  control  cards  for  program  execution: 
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//  T 57191  01  JOB  <701R.MP>I  3>  ,***005  CAPT  JENK  I NS  • . T I ME  = 1 
OBLIB  00  DSN=HQMC1 .MPI .LCADLIB.OI SP=SHR 
//STEPONE  EXEC  PGM= I E HPROGM , REG I ON= 0OK 
//SYSPRINT  DO  SYSOl)T  = A 
//SYSOUT  DO  S YSO UT=A 
//SYSIN  OO  * 

UNCATLG  DSN AM E= HO MCI . MPI 2 . C 1 08 0 . SRSX239N 
UNCATLG  DSNAME— HQMC1 . MP I 2 . C 1 08 0 . SRSX23ND 
/* 

//  EXEC  LCOBUCLG,OFF=MPI 1 ,SECT=RETRV, 

//  PARM.C06=(LI8. NODEC K. LOAD , NOOMAP . NOPMAP . SUP M AP . NO XREF . ST ATE , SXREF  . 
//  • S I ZE= I I 4K*  * • 8UF= 1 6K • I » 

//  REGION. LKED=90K, 

//  REGION. GO=200K 

//LIB. SYSIN  OO  * 

-OPT  NOLIST 

-SEL  SRSX239.Q55C. EXEC 
-END 
/* 

//COB. SYSIN  DO  OSN=t&L I B TEMP 

//C03.SY5L I B DD  OSN=HQMC 1 . AP 1 2 .C OPYL I B . D I SP-SHR 
/* 

//LKEO.SYSLIB  OO 
//  00 

//  DD  0SN=HQMC1. AP12.MMSLI9.DISP=SHR 

/ - 

. GO. SYSPRINT  00  SYSOUT= A , OCB= < RECFM=UA . BLKS I ZE= l 33 ) 

//GO. SYSOUT  DO  SYSOUT=A 
//GC .SYSUDUMP  DO  SYSCUT=A 
//GO .SYSOBOUT  OO  SYSOUT=A 

//GO - ST  A TO  UT  DO  DSN=HQMC 1 . M° I 2- C 1 080. SR SX 239N . 

//  UNIT  = 2400—3  * 

//  DC  B= I R ECFM=FB  »LRECL=24  0. BLKSI ZE=  2400 ) . O ISP= ( NEW , C ATLG . DELETE ) 

//GC.0UT23  9 DO  OSN=HQMCl .MP I 2 . Cl  0 80 . SR SX2 3ND , DI SP= ( NEW . CATLG. DELETE ) • 
//  SPACE=(TRK , ( 60 ,2  ) .RLSE  ) . 

//  DCB=(RECFM=FB»LRECL=240.BLKSIZE=2400).UNIT=3330 

//GO .STATFILE  OO  O I SP  = OLD , D SN=HQMC1 . AP I 2. C 1 080 . PSI 4RMHF -G7803 VO 0 
/* 

//  EXEC  I EL EASE  * P AR  M=* 157191 11* 

/* 


000000  l 0 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 1 0 
00000120 
00000130 
000001  AO 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
000 00270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 


J 


5 


55 
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Note  1.  The  DSNAME  labels  that  appear  in  the  uncatalog  statements 
(lines  70  and  80)  must  be  the  same  as  the  DSN  labels  in  STATOUT  and  OUT239 
(lines  310  and  340) . 

Note  2.  The  DSN  label  cu  the  STATFILE  DD  card  must  be  the  name  of 
the  current  regular  transaction  file. 
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3.1.7  Program  Maintenance.  The  following  Holds  are  used  by  program 
SRSX239.  Changes  to  these  fields  may  have  an  effect  on  the  successful 
execution  of  the  program. 


DATA  NAME  DESCRIPTION 


MID 

TCC 

DO- ACT  ION 
TTC 


Military  identification 
Type  change  code 
Date  of  action 
Type  transaction  code 


If  changes  to  the  program  are  necessary,  the  following  sequence  of 
cards  will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link 
edit,  and  replace  the  original  load  module  in  LOADLIB. 
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/ /I  57031  02  JOS  ( 601R.MPI  2}  »'•  COMP  t LKED  X239»  * T I ME  = * 00 . 50J 
//  EXEC  LCOBUCL.QFF=MPI  1 . SECT=RET  RV  . LL I S=LOAOL  I B . RUQM-=MP  I . 
//  LMEM=S RSX239 

//LI8.SYSIN  00  * 

-OFT  NOUIST 

-SEL  SR  SX2  39 »Q55C.R  E SEQ • TEMP* EXEC 

-END 

/* 

/* 

/AC  OB.  SYS  I N DO  OSN-&&HBTEMP 

//COB.  SYSUB  DO  DSf**HQNC  1 . AP 1 2.C0PYL I B . 0 1 SPs SHR 

/♦ 

/✓LKED.SYSLI8  DO 
//  DO 

//  DO  OS  N*HQMC  1 • API  2 . MMSL IB  • O I SP*  SHR 

/* 

// 


00000010 

00030023 

00000030 

00000040 

ooooooso 

03330063 
00000070 
ooooooao 
30300090 
00000100 
000001 10 
03003120 
00000130 
00000140 
00000150 
00000160 
00000170 
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3.2.1  Program  SRSK239.  This  program  is  an  edit  step  in  the  SSN  change 
process.  The  purpose  of  the  editing  is  to  ensure  that  there  are  pairs 
of  transactions  (Rl-AN)  for  each  SSN  change. 

Since  the  SSN  will  be  different  in  each  of  the  transactions,  the 
records  must  be  sorted  on  some  common  fields  to  mate  up  the  pairs.  The 
sort  fields  are  initials,  date  of  birth  and  date  of  transactions.  The 
second  step  of  this  job  is  a sort  process  to  group  the  transactions  by 
initials,  etc.  The  third  step  performs  the  editing  functions  of  checking 
for  the  presence  of  both  transactions. 

* 

3.2.2  Input.  The  input  to  this  program  is  the  disk  file  output  from 
SRSX239.  This  program  will  also  output  a disk  file  of  edited  records  to 
be  used  as  input  to  SRS239. 


3. 2. 3 Source  Program.  Following  is  a listing  of  the  source  statements  for 
SRSE239 : 


08/20/77  INPUT  LISTING  AUTOFLGW  CHART  SET  - SRS  EXTRACT  EDIT  PAIRED  239  STA 
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U J 


O 

z 


Q 

or 


- tn  n v tn  o 


05  CD  O 


n v m o Is 


oo 


- 60  - 


a > . 


oieooooa  ' NOIS I A JO  *170 


00029  03  PBES-GRO 


08/20/77  INPUT  LISTING  AUTOFLOW  CHART  SET  ' SRS  EXTRACT  EDIT  PAIRED  239  STA 


08/20/77  input  listing  autoflgi*  chart  set  - srs  extract  edit  paireo  739  sta 


08/20/77  INPUT  LISTING  AUTOFLOw  CHART  SET  - SRS  EXTRACT  FOIT  PAIRED  739  STA 


08/20/..  INPUT  USTIUG  AUTOFLGW  CHART  SET  - SRS  EXTRACT  EDIT  PAIRED  239  STA 


08/20/77  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  EXTRACT  EDIT  PAIREO  239  STA 


08/20/77  input  listing  autoflow  chart  sft  • srs  extract  eoit  PAIRED  239  STA 
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GO  TO  UP-TOUR-COONTER.  00001620 


TM-60423 


358  MOVE  'ERROR  REPGR T - uNMA I CHEO  RECORDS'  10  TCP-1NFG  00001850 


380  OPEN  OUTPUT  OUT-239,  EOU'OISPLAV.  ERR-OUT.  00002070 


■■■■ 


3. 2. A Flowchart. 
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The  following  chart  is  an  AUTOFLOW  charting  of  the 


SRSE239  logic  : 
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08/20/77  AUT0FL0W  CHART  SET  - SRS  EXTRACT  FDIT  PAIRED  239  STA  PAGE 
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NORM -OUT  UP- TOUR -COUNTER 
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Out£ut.  The  paired  records  (AN-239,  Rl-239)  are  re-formated  into  a 

single  record  containing  the  old  SSN  first,  and  then  the  new  SSN.  Thus,  on 
the  output  report  there  will  be  a count  indicating  twice  as  many  records 
input  as  there  are  output.  The  output  records  are  written  onto  a disk  data 
set  to  be  used  as  input  for  program  SRS239. 

A sample  of  the  printer  output  for  program  SRSK239  follows: 
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STAMbllCAL  K t I h 1 L V A L S > S 1 1 


till  r1  | K t 0 OAfvCt  KtCCACS 


C 6 / l -j  / / / 
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3.2.6  Job  Control  Language  for  Execution  of  Program.  The  following  listing 
shows  the  complete  set  of  JCL  and  control  cards  for  program  execution: 
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// 15719111  JOB  ( 70 1R, MPI 3) . • E239 — CAPT  JENK I NS • , T I ME  = ( , 2 0 ) , T YPRUN  = HOLD 
• DDL  ID  DD  DSN  = HQMC 1 .MP  I .LOAD LI B »DI SP=SHR 
s . 3T EPON E EXEC  PGM= I EHPRDGM ,REGI ON=80K 

//SYSPRINT  00'  SYSOUT=A 
//SYSOUT  DD  S YSQU  T=  A 
//SYSIN  DO  * 

UNCATLG  DSNAME=HQMC1 .M°I2.C1  0 80 • SRSE239N 
/* 

✓/STEP  I EXEC  PGM=IERRCOOO 

//SORTLIB  DD  DSN  = SYS  I . SORTL I B , D I S°= SHR 
//SYSUDUMP  DD  SYSOUT=A 
/✓SYSOUT  DD  SYSOUT=A 

//SORTIN  DD  DSN=HQMC1  .M PI  2 . C 1 080.  SRSX 23ND  . D I S=»  = OLD 
//S0RTWK01  DD  UN  I T=SYSDA * SPACE= ( TRK,  (100)) 

//SORT  WK02  DD  UN IT= ( S YSOA , SEP=SORT WKO 1) , A FF=SORT WKO 1 , 

//  S°ACE=ITRK» (100) ) 

//S0RTWK03  OD  UN1T=( SY SDA * SEP  = « SORT UKO 1 • SORTWKQ2 ) ) , AFF  = S0RTWK01  , 

//  SPACE=ITRK, { 100) ) 

//SORTOUT  DO  DSN=&SORTOUT. 

//  D I SP= ( NEW, PASS) • 

//  UNIT=3333.SPACE=(TRK.(80.2)) , 

//  DCB=CRECFM=FB,LRECL=240,BLKSI ZE=2400 ) 

//SYSIN  DD  * 

SORT  F I EL  DS  = ( 021 i03«CH«Ai 72»4,PD»A»3»4,PD»A)  ,FILSZ=E4500 
/* 

//  EXEC  LCOBUCLG,OFF=MPI 1 ,SECT=RETRV, 

PARM • CO B= (LIB,  NO DECK , LOAD*  NODMAP*  NOPMAP  * SUPM AP  . NOXREF  » STATE,  SXREF, 
//  *SIZE=1 14K* ,»BUF=16K* ) ♦ 

//  REGION. LKED=90K , 

//  R EG IG  N • GQ=  20  OK 

//LIB. SYSIN  DD  * 

-OPT  NOLIST 

-SEL  SRSE239, 0550, EXEC 
-END 
/* 

//CCB. SYSIN  DD  DSN= SSL  I B TE MP 

//COB.SYSL  18  DD  DSN=HOMC 1 . AP 1 2 .COPYL I B , DI SP=SHR 
/* 

//LKED.SYSL IB  OD 
//  DD 

✓ / DD  DSN  =HQMC 1 • AP  1 2 • MMSL I B • DI  SP  = SHR 

/* 

//GC .SYSPR  INT  OO  SYSOUT  = A • DC 8= I RECFM=UA*  BLK SI ZE  = 1 33 ) 

//GO. SYSOUT  DD  SYSOUT=A 
//GO.SYSUDUMP  DO  SYSOUT=A 

//GO • SY  SDBOUT  DD  SYSCUT=A 

//GO • ERRMESS  G DD  SYSOUT=A 

//GO  • SSNCHO UT  DD  DSN  = HQMC  1 . M=»I  2 . C 1 080 . SRSE239N  , 

//  DI SP= (NEW , CATLG, DELETE ) ,UNI T=3330, 

//  SPACE = (TRK» (80*2) »RLSE ) , 


//  DCB=(RECFM=FB ,LRECL=31 ,BLKSI ZE=3100) 

'GO.SSNCHGIN  DD  D SN= tSORTC UT . 

, / O I SP= ( OLO*  DELETE ) * UNI T = 3330 

/* 

//  EXEC  IELEASE.PARM=» 15719121 • 

/* 


003300 i 
000000 
000000 
003003' 
000000- 
000000' 
000000 / 
0000003 
oooooo  ; 
00000  1 0 
000031 1 
000001  • 
00000  1 3 
0000014 
00000 1 
oooooi 

00000  1 7 
0 0 0 0 0 1 
0000019 
0000020 
000002  I 
000002? 
0 0 0 0 0 2-1 
0000024 
000  002  5 
000002' 
000002 
000002' 
0000029 
0000033 
000003 ! 
000003  ’ 
000033. 
0000034 
000003  > 
000003 ( 
000003  / 
0000033 
000003 J 
0000040 
000004 1 
0000042 
000304.1 
0000044 
0000043 
0000040 
000004  7 1 
0000040. 
0000049 
000C050 
000005 1 
0000053 
000005  - 
000005  4 
000035s 
0000055 
000005  • 


" 


1 
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No  to  1 . Tlu*  DSNAHK  in  the  uneataloft  statement  (line  70)  imuit  ho  the 
same  as  the  DSN  In  the  SSNCHOUT  1)1)  statement  (lino  480). 


l.J!./  Program  Ma  lut  enance . I' lit*  lol  lowing  fields  ar»>  used  in  program 
SKSEJ 19.  Changes  to  t hese  fields  In  TRS  may  have  an  effect  on  this  sort 
process/pi ograra. 


DATA  NAME  DKSCKI  l'Tl ON 

TCC  Type  change  code 

IMVAt’TION  Date  ot  action 

Mil)  Marine  identification  number 

1 N I TS  Initials  o I name 

DO- BIRTH  Date  of  birth 

L-NAMK  l.ast  name  of  Marine 

II  program  changes  are  necessary,  the  fol lowing  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  comp  lie,  link  edit, 
and  replace  t he  original  load  module  in  I.0ADI.1B. 
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„ 15703112  JOB  C604R»MPX2».'COMP  6.  LKED  E239-  . T 1 ME-I  00.40* 
//  EXEC  lcobucl.oef-mpii.sect-retrv.llib-loadlib.boom-npi* 
//  LNEM-SRSE239 

//LIB.SVS1N  DO  * 

-OPT  NOLI  ST 

-SEL  SRSE239 *Q550*RESEQ» EXEC 
-END 


/• 

//COB • SY  SIN  OO 
✓ /COB • SY  SL 1 B OO 


OSN»SO-IBTENP 

0 S N«HQNC I . AP 1 2 . COPYL I B. D I SP«  SHR 


/• 

//LXEO.SYSL1B  OO 

//  DO 

✓/  OO  OSN-MOMC1. API2.MNSL 18,01 SP-SHR 
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3.  1.1  Program  SRS23').  Hits  program  forms  a table  of  SSN  changes  to  detect 
multiple  changes  for  an  individual.  For  instance,  if  a Marine  has  the  Mill 
number  A and  changes  it  to  the  number  H then  later  changes  it  to  ('  the 
program  is  designed  to  detect  these  changes.  There  may  he  some  transactions 
under  number  A that  must  ho  changed  to  C . Similarly,  there  may  be  some 
transactions  filed  under  number  H that  also  must  be  changed  to  C . This 
program  constructs  correction  records  that  will  he  used  to  update  the  SSNs 
in  the  transaction  file  as  well  as  the  history  file. 

1.3.2  Input.  The  input  to  this  program  is  the  edited  paired  records  from 
SRSF.2  39 . 

3.3.3  Source  Program.  Following  is  a listing  of  the  source  statements  for 
SRS2  il>: 


07/f./7e  INK’JT  -.IsTJt.c,  4U70FL0W  CHART  SET  • S»S  FC»*  Tfl.  TO  LETECT  ku^T  ct-SS 


07/11/78  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  FORM  TBL  TO  CETECT  MULT  CHCS 


07/11/73  INPUT  LISTING  AUT0PL0*  CHART  SET  • SRS  TOR*  TBl  TO  DETECT  VUIT  OGS 
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110 


07/U/76  AUTOFLOW  CHART  SET  - SRS  FORM  TBl  TO  DETECT  MULT  ChGS  PAGE  02 


07/11/76  AUTOFLOW  CHART  SET  • SRS  FOR*  TBL  TO  CETECT  KUlT  ChOS 


CKKATCh 
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C7/i;/7a  AuTOFLOM  CHART  SET  - SRS  form  TBL  TO  DETECT  V'jLT  Cues  *LQ £ 
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§ 


118 


07/1 i//3  autoflo*  chart  set  - srs  for*  tbl  to  cetect  mult  chgs  page 


NUP ASS 


AUTOFIO*  CHART  SET  - SRS  TOR*  TBl  TO  DETECT  MULT  CMOS  TtGE 
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autgfio*  chart  set  * srs  fc««  re.  tc  cet^ 


12  04. 


TM-60423 

3.3.5  Output.  The  output  from  this  program  consists  of  correction  records 
that  will  be  used  to  update  the  SSNs  in  the  transaction  file  as  well  as  the 
history  file.  The  correction  records  are  written  on  two  disk  files;  one  will 
be  input  to  the  TSSN  program  for  correcting  transaction  SSNs.  The  other  file 
will  be  input  to  the  HSSN  program  for  correcting  history  record  SSNs. 

A sample  of  the  printer  output  for  program  SRS239  follows: 
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3.3.6  Job  Control  Language  for  Execution  of  Program.  The  following 
listing  shows  the  complete  set  of  JCL  and  control  cards  for  program 
execution: 
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// t 57 191 21  JOB  I 701R.MPI3) .* -239 CAPT  JENKINS*  .TIME 

//JOBLIB  DO  OSN*HOMCt . MP I . LO ADL I B . D 1 SP* SHR 
//STEPONE  EXEC  PGM- I EHPROGM .REG I 0N-80K 
//SYSPRINT  OO  SYSOUT-A 
//SYSOUT  OO  SYSOUT-A 
✓/SYSIN  DO  ♦ 

UNCAfLG  OSNAME-HQMC1  .MPI 2 .C l 080 .SRSH. ST A TUP 
UNCATLG  DSNAME-HQMC1 .MPI 2. C 1 080-SRSN. H I STUP 

/* 

PGM*  SR S 2 39 • REG I ON— 1 5 OK 
DO  SYSOUT— A 
DO  SYSOUT-A 
OO  SYSOUT-A 
OO  SYSOUT-A 

OO  OSN— HQMC  1.MP12.C1080.  SR  SE239N  .0 1 SP-OLD 
OO  DSN— &A  *0 ISP»(  .PASS) .SPACE*! CYL * l ) .UNIT-3330. 
DC  B—  < R ECFM— F »LRECL  = 3 1 . BEK SI ZE-3 1 ) 

OO  0SI*-£8.01SP-< .PASS) .SPACE- (CYL. 1 ). UN  IT-3330. 
DCS-(RECFM«F.LRECL=31 .BLKSI ZE-31 > 

OO  DSN-H0MC1 .MPI2.CI 080. SRSN. STATUP • UN I T-3330 • 
D1SP-C .CATLG .DELETE). SPACE* (TRK.I 1.1) .RLSE ) • 

DC8— 4RECFM— FB.LRECL— 3 1 • BLKSI ZE— 3100) 


( .10). T YPRUN— HOLD 


//  EXEC 

//SYSPRINT 
//SY  SOUT 
//SYSUOUMP 
//SYSOBOUT 
//INFILE 
//WORK  I 
// 

// WORK  2 
// 

//TROUT 
// 

// 


//HI  STOUT 


OO  DSN-HOMCl .MPI2.C1 080. SRSN.MI STUP . UN I T =3330 . 


// 

// 

/* 

// 

/* 

// 


DISP-C .CATLG .DELETE )• SPACE*! TRK. I I .1 >.RLSE>. 
OC 8- (RECFM-FB.LRECL-20. BLKSI ZE-2000) 

EXEC  I EL EASE  *P ARM— • 15719201 • 


0000001 0 
00000020 
00000030 
00000040 

ooooooso 
00000060 
00000070 
00000080 
00000090 
00000100 
0000011 0 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00090230 
00000240 
000002S0 
00000260 
00000270 
00000280 
00000290 
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Note  1.  The  DSNAME  in  the  first  uncatalog  statement  (line  70)  must 
match  the  DSN  in  the  TROUT  DD  statement  (line  200). 

Note  2.  The  DSNAME  in  the  second  uncatalog  statement  (line  80)  must 
match  the  DSN  in  the  HISTOUT  DD  statement  (line  230). 


I 
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3.3.7  Program  Maintenance.  This  program  depends  on  its  input  from  con- 
structed records  produced  by  SRSE239.  As  Long  as  the  MID  field  is  character 
and  the  date  of  action  is  packed  decimal,  no  changes  should  be  necessary. 


If  program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit,  and 
replace  the  original  load  module  in  LOADLIB. 
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//I  57031  22  JOS  C601R.MPJ  2)  . »COMP  fc  LKEO  239*  . T I ME=»<  0 3 . 4b  ) 
//  EXEC  LCOSUCL.OFF=MPIl . 5ECT=RETRV,LLia=LOAOLIB.ROOM=MPI . 
//  LMEM=SRS239 

//LI8.SYSIN  DO  * 

-OPT  NOLI  ST 

-SEL  SRS239. ZSLK.RESEO. TEMP. EXEC 
-ENO 
/* 

//COB.SYSIN  DO  DSN*&&LI8TEMP 

//COB • SY  SL 1 8 00  O SN-HQMC 1 . AP 1 2 .COP YL I 8 . 0 1 SP* SHR 

/* 

//LKEO.SYSLIB  DO 
//  OD 

//  00  DSN^HOMCl . API  2 • MMSL 1B.O I SP=SHR 

/* 

// 


30330010 

00000020 

00000030 

030000A3 

ooooooso 

00000060 

00000070 

ooooooao 

00000090 

00000100 

00000113 

00000120 

00000130 

03000140 

00000150 

00000160 
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3. A. I Program  SRSXJD.  This  program  accepts  one  of  the  transaction  files 
as  input.  It  expects  the  file  containing  the  JD-,  JP-,  TR-type  transactions. 
The  JD  and  JP  transactions  are  split  off  the  file  and  output  onto  a tape. 

The  TR  transactions  are  ignored. 

The  output  of  this  program  is  fed  into  the  "sort/merge  XJD  and  X239" 
process  (along  with  the  output  from  SRSX239). 

3.4.2  Input.  The  input  to  this  program  is  a tape  transaction  file  which 
contains  the  JD- , JP- , TR-type  transactions. 

3.4.3  Source  Program.  Following  is  a listing  of  the  source  statements  for 
SRSXJD: 


Ofc/SO/.d  INPJT  LISTING  AuTOFIOA  CHART  SET  - SRS  EXTRACT  JO'JP  STATS 


I 
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06/30/ ,d  INPOT  LISTIN3  AirCFLC.V  CHART  $£T  - SRS  EXTRACT  JD-JP  STATS 


Od/iJ/78  I.NPjT  USTIVJ  A-T CFLC-.  C-.AAT  SET  - SPS  EXTRACT  JC-JP  STATS 


CC023  03  D'JTY-LMT 


06/30  , INP'JT  LISTING  AL'TCcLG*  CHAR  7 S£T  - S&3  EXTRACT  oQ.JP  STATS 


00070 


06/30/78  !\P’jT  LIST!-.;.  ALTCfLC.'.  CHART  SET  • S&S  EXTRACT  uO-JP  STATS 
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06/3C/.8  INP'JT  LISTING  AU TOFLOtf  CHART  SET  - SRS  EXTRACT  JO-OP  STATS 


TM-60423 


06/30,  78  1SP  JT  L J ST I No  AUTCFLOV.  CHART  SET  - SRS  EXTRACT  UD-JP  STATS 


TM-60423 
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mm 


— - ■ - 


FLO*  CHART  SET  - ses  EXTRACT  jQ-vlP  STATS 


06/30  .<3  AUTCFlOW  CHART  SET  • S»S  EXTRACT  JD-dP  STATS  PA&C 
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3.4.5  Output.  The  output  from  this  program  will  be  a tape  containing  JD 
and  JP  transactions.  The  JD-type  transactions  are  "joined"  statistics  and 
will  be  used  to  update  the  transfers  area  of  the  history  file.  The  JP-type 
transactions  will  be  used  to  update  the  turbulence  area  of  the  history 
records. 


A sample  of  the  printer  output  for  program  SRSXJD  follows. 


STATISTICAL  RETRIEVAL  system 
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3.4.6  Job  Control  Language  for  Execution  of  Program.  The  following  listing 
shows  the  complete  set  of  JCL  and  control  cards  for  program  execution. 
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1 1 571  9201  JOB  ( 701R.M3I  31  •• -XJO — CA^T  JENKINS*  • T I ME  = 3 *T YPRUN  = HCLD 

fJOBLIB  OO  OSN  = HQ  MCl.MPI.  LOAOL I B . O I SP=SHR 

/STEPONE  EXEC  PGM=l EHPROGM.REGt ON=80K 

/SY SPRINT  OO  S YSOUT  = A 

/SYSCUT  OO  SYSOUT=A 

/SYSIN  OO  * 

UNCATUG  DSNAME=HQMC1  . MPI 2 . C 1 080 .SR SX JON 

* 

/ EXEC  LCOBUCLG* OFF=MPI 1 «SECT=RETRV • 

/ PARM.  COBMLIB.  NOOECK.LOAD,  NOOMAP  . NOPM  AP  . SUPMAP  . NO  XREF  .ST  ATE,  SXREF  . 
’/  »SIZE=I1  AK»  .«BUF=16K«  » . 

’/  REGION. LKED=90K. 

V REGION. GO=200K 

r/LIB.  SYSIN  OO  * 

•OPT  NOLIST 

•SEL  SRSXJD.Q55B.EXEC 
•END 

r * 

f/COB.SYSIN  OO  DSN=££L IBTEMP 

f/COB-SYSL  IB  OO  DSN=HQMC 1 . AP l 2 .COPYL I B . 01 SP=SHR 

f* 

//LKED.SYSL IB  DO 

//  OO 

//  00  OSN=HOMCl . A3|2.MMSLIB,0I SP=SHR 

✓ * 

✓/GO .SVSPRINT  DO  SY SOUT = A . OC B= ( RECFM=UA .BLKSI ZE= 1 33 ) 

//GO.SYSOUT  DO  SYSOUT=A 
//GO .SYSUOUMP  OO  SYSCUT=A 

✓/GO.SYSOBOUT  OO  SYSOUT=A 

//GO.TRJDIN  DO  OSN= HQMC I . AQ71 .C 1 790 . P SI 4 GT JH. G7803V 00 * O I S°=OL O 
//GO-JOOUT  OO  DSN=HQMC1 . MP I 2.C I 080. SRSX JON. 

//  UN  I T=  2400—  3 * 

//  DCB=(RECFM=FB.LRECL=240.BLKSIZE=2A00 ) . D I S3= I NE W , C ATLG . DELE TE 1 

✓ * 

//  EXEC  IELEASE,PARM=* 1571921 1 • 

✓* 

// 


000000  l 
00r  303 

00£  JO  V 

ooooao'i 

0000005 
000000(5. 
000000 i 
OOOOOOM 
000000s> 

00000 1 c 
00000 1 1 
0000012. 
0000013. 
0000014 
003001S 
0000016 
0000017 
0000018 
ooooow 
0000021' 
000002: 

0000023 
0000023 
0000024 
0000025 
0000026' 
OO  02 
000032  " 
000003 
00000  ' 
0000  J 
00000 
000003 

000003 
000003 
OOOOO 3 
000003 
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Note_I.  The  DSNAME  in  the  uncatalog  statement  (line  70)  must  be 
the  same  as  the  DSN  in  the  JDOUT  DD  statement  (line  310). 


Note  2.  The  DSN  in  the  TRJDIN  DD  statement  (line  300)  must  be  the 
name  of  the  current  transaction  file  containing  the  TR-,  JD-,  JP-type 
transactions. 
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Program  Maintenance.  The  following  fields  are  used  by  this  program 
Any  changes  to  these  fields  in  TRS  may  affect  this  program. 


NAME 


DESCRIPTION 


TCC 

DO- ACTION 
MID 


Type  change  code 
Date  of  action 

Marine  identification  number 


If  program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit, 
and  replace  the  original  load  module  in  LOADLIB. 
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'/ 1 5703 1 02  JOB  (601K.MPI2) .'COMP  £•  LKEO  SR SX J D* . T I ME=( 0 0 . 503 
'/  EXEC  LCOBUCL.OFF=MPlI,SECT=RETRV.LLIB=LOAOLia.ROOM=MPI. 

//  LMEM=SRSXJD 

//L IB. SY  SIN  DO  * 

opt  nolist 

» >cL  SRSXJ0.Q55B.RESEQ.EXEC 
•END 
/* 

//COB.SYSIN  DD  DSN=fc&l_I  BTEMP 

//COB.SYSLIB  DD  DSt*=HQMC  1 . AP12  .COPYL I B . D I SP=SHR 

/* 

//LKED.SYSL IB  DD 
//  DD 

//  DD  DSN=HQMC1.AP12.MMSL18.DISP=SHR 

/* 

// 


00000010 
00000020 
00000030 
000000*0 
00 000050 
00000060 
90000070 
00000030 
00000090 
00000100 
00000110 
00000120 
00000130 
000001 *0 
00000150 
00000160 
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3.5.1  Merge  XJD  and  X239  Output.  This  job  is  a three-step  process.  All 
of  the  steps  use  Syncsort.  The  first  two  steps  are  sorts  and  the  last  step 
is  a merge  of  the  outputs  of  the  first  two  steps. 

3.5.2  Input.  The  input  to  the  first  step  is  the  tape  that  was  output  from 
SRSXJD.  The  input  to  the  second  step  is  the  tape  that  was  output  from 
SRSX239. 

3.5.3  Output.  The  output  will  be  a tape  that  contains  all  the  transactions 
(JP,  JD,  and  regular  stats)  that  will  be  used  in  the  update  process.  The 
transactions  will  be  sorted  on  MID  (major  sort)  and  date  of  action  (minor). 

A sample  of  the  printer  output  for  the  "merge  XJD  and  X239  output" 
process  follows. 
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// 157 1 921 1 JOB  ( 701R.MPI3).* JENKINS-SM  X JD- X239 • , T I ME  = 5 • 
//  TYPRUN*NQLQ 

/ fEPONE  EXEC  PGM* I EHPROGM .REG I ON^0OK 
//SYSPRINT  DO  SYSQUT* A 
//SYSOUT  DD  SYSOUT*A 
//SYS1N  DD  ♦ 

UNCATLG  DSN A ME = HO MC 1 . MP I 2-C 1 06 0 . SR SN. SORT ST A T 
/* 

//STEP l EXEC  PGM* I ERRCQOO • REG I ON* 1 SOK 
//SORTLIB  DD  DSN*SYS1.SCRTLIB.DISP*SHR 
//SYSUDUMP  DD  SYSOUT*A 
//SYSOUT  DD  SYSOUT*A 

// SORT  IN  DO  DSN*HQMC1.MPI2.C1080«SRSXJON.DISP*OLO 
//SORT  WKO I 00  UN  I T* SYSOA . SPACE*! CYL • ! 075) ) 

//SORT  WK02  DO  UN  I T*SYSDA » SPACE* ! C YL *!  075) I 
// SORT  MX 03  DO  UN IT*SV SDA  .SPACE* ! CYL • ! 0 75> ) 

//SORT  WK04  DD  UN  X T*SYSDA. SPACE* ! CYL . X 075) ) 

//SORTWKOS  00  UN  I T*SY SO A • SPACE* ! C YL  . ! 075) ) 

//SORT WKQ6  DD  UN IT*SVSOA .SPACE* ( CYL . ! 0 75) ) 

//SORTOUT  DO  DSN*C3D.OISP*!  NEW .PASS)  . 

//  UNI  T* 240 0—3  . OCB* i RECFM*FB.LRECL*240. BLKS IZE*2400  ) 
//SVSIN  DD  * 

SORT  FIELDS*! 11* 10. CH. A* 3* 4* PD. A* 1 . l.CH.D) 

/* 

//STEP 2 EXEC  PGM* I ERRCQOO* REGION* 150K 
//SORTLIB  DO  DSN*SY S 1 . SCRTL I B. D I SP* SHR 
//SYSUOUMP  DO  SYSOUT*A 
//SYSOUT  DO  SYSOUT»A 

//SORTIN  DO  DSN* HO MCI .MPI2.C 1 080. SRSX239N* D I SP*OLD 
//SORT  WKO 1 00  UN I T*SYSDA • SPACE*! CYL • 1 075) ) 

//SORTWK02  DO  UN IT*SYSDA  » SPACE*! CYL » ! 075) ) 

//SORT  WK03  OD  UNIT*SVSDA.SPACE=!CYL.! 075) ) 

//SORT WK04  00  UN  I T*S YSD A . SPACE* ( C YL . ( 075)  ) 

//SORTWKOS  DO  UN  I T»SV SDA .SPACE*! CYL • ! 075 ) ) 

//SORT WK 06  DO  UN I T* SY SDA • SPACE*!CYL • ! 075 ) ) 

//SORTOUT  00  DSN*GX239 .O I SP* ( NEW .PASS  I • 

//  UN I T* 240 0—3 . OCB* ! RECFM*FB • LR£CL*240 . BLKS I ZE*2400 ) 
//SYSIN  DD  * 

SORT  FIELDS*! 1 1. 1 O »CH . A* 3 . 4 . PD . A , 1 .1 .CH.O) 

/* 

//STEP 7 EXEC  PGM* IERRCDOO. REGI0N*150K 
//SORTLIB  DD  DSN* SYS  1 . SORTL I B • 0 1 SP*SHR 
//SYSUOUMP  DD  SYSOUT»A 
//SYSOUT  DO  SVSOUT*A 

//SORT INO 1 OD  DSN*6 JD .01 SP*  < CLD* DELETE ) 

//SORT IN02  00  OSN* 6X239  »DJ SP*! OLD .DELETE ) 

//SORTOUT  OD  0SN*HQMC 1 » MPI 2. Cl  080. SRSN* SORTST AT . 

//  OISP*! .CATLG. DELETE ) « UNI T* 24 00— 3. 

//  DCB*!RECFM*FB.LRECL*240 .BLKS I ZE*2400 ) 

//SVSIN  DO  * 

MERGE  FIELDS*! 1 1 • 1 O.CM. A, 3. 4 • PD , A. 1. l.CH.D) 

/* 

//  EXEC  I EL  EASE .PARM*  *15719221* 

/i 

// 


00000010 
00000020  I] 

00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
oooootio 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  70)  should  be 
the  same  as  the  DSN  of  the  S0RT0UT  DD  statement  of  the  merge  step  (line 
470). 

Note  2.  The  DSN  in  the  SORTIN  DD  statement  of  the  first  sort  step 


TM-60423 


3.5.5  Process  Maintenance.  The  following  are  the  sort  fields  used  in 
this  process. 


NAME 


DESCRIPTION 


MID 

DO- ACT ION 
Col.  1 


Marine  identification  number 

Date  of  action 

First  character  of  TCC 
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3.6.1  Program  SRSTSSN.  The  first  step  of  this  Job  sorts  the  disk  Input 
from  SRS239  into  old  MID  order.  The  disk  data  records  contain  both  an  old 
and  a new  MID  as  a result  of  the  Rl-AN  transaction  records  for  SSN  changes. 
The  old  MID  will  be  matched  against  the  current  transaction  file  and  when 

a match  is  found , the  new  MID  will  replace  the  old  MID  of  the  transaction 
record.  The  changed  transaction  record  will  be  written  onto  a separate 
(disk)  output  since  it  will  no  longer  be  in  the  correct  sequence.  The 
unchanged  records  are  written  onto  a tape  in  their  original  sequence. 

3.6.2  Input.  This  job  uses  two  inputs.  One  input  comes  from  the  "sort/ 
merge  XJD  and  X239  output"  process.  The  other  input  is  the  STATUP  disk 
data  set  from  SRS239. 

3.6.3  Source  Program.  Following  is  a listing  of  the  source  statements 
for  SRSTSSN. 
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i.6.4  Flowchart. 
SRSTSSN  logic. 


The  following  chart  is  an  AUTOFLOW  charting  of  the 


; 


’ 


- 202  - 


) 


TOrlO*  CHART  Srr  • SRS  t/PDATE  STATS  WITH  V J f>  CHANCE  RAGE 


TM-60423 


CHG-ViH'Tf. 


OB/22/77  AUTCFLCW  CHART  SET  - SRS  OPOATE  STATS  WITH  MO  CHANGE  PAGE 


TM- 60423 


IT. 

o 


(0 

► 

•-< 

►4  *-4 

•— < 

• 

t- 

CO 

• 

•>« 

M 

*-* 

• 

o 

X 

% 

1 

o 

o 

o 

; • 

<*. 

fc- 

u. 

Uol  J 

*x 

«/> 

;* 

— • 

~j  » - 

o 

1 

uj 

uJ  2 

• 

a 

»— • 

-a  </• 

a. 

U- 

J -• 

2 

ct 

*j: 

o >- 

2 

.* 

- J J ' 

o 

£. 

• 

v0 

• 

k— 

■J  .f 

o • 

u 

o 

cc 

h- 

• 

1 

D 

• *1 

< • 

UJ 

►- 

• 

— « 

o 

cn  ~j 

a. 

l *w 

*-«  — • 

O 

a.  > 

a.  • - 

a 

a 

A 

ct 

— < o 

UJ  > 

o o 

UJ 

o 

a. 

> 

»- 

• 

— 

h—  a 

*-  < 

* • 

ar 

UJ 

>— 

— 

UJ 

< UJ 

n 

a: 

UJ  • 

Ul 

— • 

O 

CN 

H—  — i 

o 

CN 

cr  uj 

2 cc 

2 • 

CN 

< 

2 

• 

Ul  O 

uj  co  a 

H- 

*7 

X 

O uj 

UJ 

a 

< 

X 

o 

> 

*— 

> 

• 

o 

a ►- 

O • 

c 

> 

X 

»- 

o 

o 

O 

UJ 

1 

o 

u u_ 

►—  « 

o 

o 

o 

*— 

o 

£ 

*- 

a 

* 

o 

V < 

• 

o 

« 

1 

» 

♦ 

— 

•4 

•4 

« 

o ... 

2 ID  t^*  • 

. O 


, 

in 

X 

« 

, 

o 

- o 

« 

O)  ‘ 

♦- 

cn 

• 

•»  » 

• 

— o 

w UJ 

» 

SJ  * 

»- 

/C  cr 

> 

o • 

» 

D 

» »-« * 

(/)  UI 

♦ M M M 

o • 

A 

O 

• isj 

o * 

• 

* X 

«—  ♦ 

a 

* 

• 

wO  CL 

o 

o 

« 

k 

\fl  < 

CN 

• CC  k 

N.  1 

lf> 

uJ  O'. 

<T 

C: 

o 

5 O 

O 

v uj  • 

< «* 

c 

CN 

a a 

o 

« 

o 

a < 

— 

• 

uj  a. 

ERR-fcESS-OUT 


CHART  T1T..E  * PROCEDURE  OIV!SIO»« 


TM-60423 


t 000470  * 


TM-60423 


08/22/7'i  AUTOFlC/<  ChAST  S£T  • S»S  UPDATE  STATS  *ITH  HD  CHANCE 


TM-60423 


TM-60423 


u.  o U ►*  ^ 

O ‘ i?  o £ 

tX  ^ 

(X  O • O % 

uj  ui  4 V tO 

:«  O O O -i 

;•  z a -* 

Ui  3 < U1  x 

> •?  X > — 

C O c 

2k  > 


• -*  j 

• tv  «J  k/> 

1 *-•  • l/t  .4  > (J 

• ujhoO^ 

-*•  • ►-  O — «t  +* 

• — _l 

m i ;•  a 

O • I O O uu^ 

C \ ul  i »- 

O u.  u. 

O \ 1 


v^>  ft  Ui 

uj  ►*  O w)  2 

►“  O ►*  «4  * « 

• -J 

« *3  SI  -1 

v-  O V.'  V.l  *' 

\a)U  » 


<*>  • 

o • 


«t  — o 

J*iZ 

a • 4 kfl 

tSI  Cl  > Ui 

ui  - O O Z 

*—  O *-  4 »•* 


kf»  • 

uJ  • —*  • 

in 

» O O UJ  1 

Q • 

> » u • 

Q 

nuj  a h 

o • 

O 

o 

x u u. 

o » 

> ' 

o 

S 4 

w * 

w 

s. 

l 

U4  • 

'x 

. 4 y) 

l/V  It  • ..i 

w »•  C vi  •' 

- ' - • ; 

• . .1 

U ' .r  a 

. : o > iU  <*l 

% . Ui  it  ►- 


CHART  TIT  t =HpCtOli'E  i> ! v 1 S 1 Oi« 


TM-60423 


v0 


UJ 

•I 


U4 

O 

Z 

M 

z 

o 


,« 

«n 

• 

— 

•o 

•— 

VO 

• \ 

u 

vJ 

N 

I 

.-J 

V 

*- 

O 

a 

v/1 

O 

S 

3 

o 

►«  i 

u- 

z 

« 

u. 

a 

u. 

V 

* 

J 

— 

• X 

*4 

V-' 

— 

3 

•-* 

— 3 • 

-i 

►- 

(t 

U- 

O 

O Z 

a 

< 

k/> 

O 

•1 

• 

— ■» 

U4 

vj 

:« 

• • « • 

y> 

« 

-* 

IU 

>- 

A 

C'. 

»A 

Cl 

3 « • 

1 u. 

— * 

c 

.* 

r- 

k/> 

• 

«» 

J • 

r> 

wJ 

A 

z o • 

— 

• H 

o 

-O 

vT* 

•» 

O -J  > 

• - 

* •— 

- i 

V 

ut 

o 

«4 

o 

• 1 

• IX 

3 

> 

a 

►- 

u> 

Uj 

UL 

•t 

U4 

*—  < 

u> 

• 4 

o c 

04 

Ot 

•I 

O 

> 

i - 

z 

> 

3 

o 

'•X 

04 

a. 

►- 

U 

O 

O 

O 

o o 

o 

u 

U. 

U. 

O 

;» 

• 

o 

•1 

_) 

-» 

• 

V.. 

• 

*•« 

— • 

a 

k/» 


• 

* 

-* 

^ M 

— - 

• »-k 

ku 

%A 

n 

»>  »* 

• ■» 

*■  • 

•-• 

••« 

►— 

•«  • 

o 

o 

\ 

►— 

O 

V 

(t 

o 

UJ 

N 

«t 

T- 

a 

3 

O 

X 

kA 

» 

w4 

7. 

u 

u 

w 

o 

—• 

o 

3 

O 

o 

►- 

If  • 

1 

o 

< 

• » 

t. 

v» 

3 . 

-i 

- J 

» > 

a 

> 

**- 

. 

• v 

.;  A 

-J 

• « 

oJ 

v.» 

. ■ 

*-« 

< • • 

-A 

.j 

U 

u> 

• » 

• t 

< 

j: 

UJ  ••* 

.3 

O 

-* 

Sr 

R— 

O • 

»-  3 

•■J  — • 

►» 

u' 

3 

• J 

»• 

o 

.j  • 

r- 

•«  < 

-* 

3 

«") 

■• 

. 

> 

.4 

i'X 

kU 

«• 

a 

*1 

iO 

UJ  * 

-3 

ot 

o 

UJ 

*• 

kf> 

< O 

uj  or 

o 

.» 

»- 

• 

3 

o 

^ UJ 

»£ 

►— 

o 

O 

o o 

o 

\ 

U. 

u 

o 

5 

o 

N 

• 

V 

— • 

• 

• 

— — 

*-• 

*-* 

— 

— • 

3 
o o 


0 0 3 0 

— a.  u. 

* - z z 

uJ  < ' - 

U •!  • 

i ,1  V 


at  S 

*-  3 

o z 


8 

3 


a iflO\ 

• mj  7. 

> i*  — 

«t  o 

z 

a . < v/) 

v/>  Ik  > UJ 

i » v>  O •! 

l *i  — 

' JX 


218 


Chart  t:ti£  • f-ROCEOu«E  division 


TM- 60423 


10005-55) 


TM-60423 


3.6.5  Output.  The  outputs  from  this  program  will  be  two  data  sets.  One 
data  set  will  be  written  on  disk.  This  is  usually  on  the  order  of  a few 
hundred  records.  The  disk  data  set  consists  of  those  transactions  that 
had  their  MID  changed,  therefore  these  are  not  in  sequence  on  MID  at  this 
point.  The  other  data  set  is  on  tape  and  consists  of  all  the  transactions 
that  did  not  require  an  MID  change.  Thus,  these  are  still  in  sequence  on 
MID.  In  the  next  process,  the  disk  data  set  will  be  sorted  and  merged 
back  into  the  tape  in  the  proper  sequence. 

A sample  of  the  printer  output  for  program  SRSTSSN  follows. 


i 
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PAIRED  SSN  CHANCE  KECOr.DS  WITH 


statistical  retrieval  system 
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3.6.6  Job  Control  Language  for  Execution  of  Program.  The  following 
listing  shows  the  complete  set  of  JCL  and  control  cards  for  program 
execution. 
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//I5719221  JOB  < 70  l R ♦ MP  I 3 > . • JENK  l NS-TSSN • . T I ME  = 4 , T YPRUN*HOl. D 
//JOBLIB  DO  DSN=MQMC1 .MPI .LOAOLIB.DI SP=SHR 
//STEPONE  EXEC  PGM*  I EHPROGM  » REG  l ON- 8 OK. 

//SYSPRINT  OO  S YSOUT  =A 
//SYSOUT  DD  SYSOUT=A  ' 

//SYSIN  DO  ♦ 

UNCATLG  DSNAME*HQMC1 . MP I 2 .C 1 080 . SRSCHGSN 
UNCATLG  DSNAME=HQMCl  . M°I 2 . C l 080 . SR  SN • ST  AT  SOUT 
/ + 

//STEP2  EXEC  PGM* IERRCOOO 

/✓SORTLIB  DD  DSN=SYSJ .SORTL I B.OI S»=SHR 
//SYSUOUMP  DD  S YSOUT* A 
//SYSOUT  DD  SYSOUT* A 

//SORTIN  DD  DSN=HQMC1 . MP I 2 .C 1 O 80 . SRSN . ST ATUP , D I SP=OLD 
//SORT  WKO 1 DD  UN  I T*SY SDA . SPACE  = ( TRK , ( | 00 ) > 

//SORTWK02  OO  UN IT=< SYSOA ,SEP=SORT WKO 1 ) , AFF = SORT WK 0 1 . 

//  SPACE=(TRK,{ 1 00) ) 

//SORT WK 03  DD  UNIT=<  SYSDA ,SEP=( SORTWKO 1 .SORT WKO 2 ) ) . AFF  = SORTWKOl . 

//  SPACE* (TRK, ( 100)  ) 

//SORTOUT  DD  DSN*tSTATUP  »D I SP=(  NEW. PASS ) * 

//  UN I T *3330 . SPACE* (TRK. (80.2) ) . 

//  DCB=(RECFM=FB,LRECL=31 . BLKSI ZE=3100) 

//SYSIN  DD  + 

SORT  F I ELDS=( 1 • 10.CH.A) 

/* 

//  EXEC  LCO0UCLG.OFF=MPI 1 ,SECT=RETRV. 

//  P ARM. CO B=( L IB. NODECK. LOAD. NOOMAQ, NOPM AP , SUPM A» . NOXREF , STATE. SXREF. 
//  • SIZE* 1 1 4K* . • BUF= 1 6K  * ) • 

//  REGION. LKED=90K. 

//  REG ION.GO=200K 

//LIB. SYSIN  OD  * 

-OPT  NOLIST 

-SEL  SRSTSSN.055E.EXEC 
-END 
/♦ 

//COB. SYSIN  DD  DSN=£tL I BTEMP 

//CQB.SYSL IB  DD  DSN=HQMC 1 . A° I 2 .COPYL I B . D I S°  = SHR 
/* 


//LKED.SYSL IB  DD 
//  DO 

//  DD  0SN=HQMC1 .AP12.MMSLIB.DI SP=SHR 

/* 


//GO 

//GO 

//GO 

//GO 

//GO 

//GO 

//GO 

//GO 

// 

// 

//GO 

// 

// 

// 


SYSPRINT 

DD 

SY  SOUT  = A • DC  B= ( RECF M=UA . BLKSI ZE= 1 33 ) 

SYSOUT 

DD 

SYSOUT=A 

SYSUDUMP 

DD 

SYSOUT  * A 

SYSDBOUT 

OD 

SYSOUT *A 

ERRMESSG 

DD 

SY  SCUT* A 

SSNCHGIN 

DD 

DSN*  GSTATUP .D I SP* ( OLD . OELETE ) 

STATSIN 

DD 

OSN=HOMC 1. MPI 2. Cl  080 . SPSN . SORTSTAT . DI 

STATSOUT 

OD 

DSN=HOMC 1 . MPI 2 .Cl  080- SRSN. STATSOUT • 

DISP=( . CATLG. OELETE ) ,UNI T =2AOO— 3 . 
DCB*(RECFM=FB.LRECL=240.BLKSIZE=2400> 
CHGSTATS  OD  DSN=HOMC 1 .M»I 2. C 1080. SRSCHGSN. 
DISP=( NEW. CATLG. DELETE ) .UNIT *3330. 

SPACE* (TRK. I 5.2)  ,PLSE ) . 
DCB*(RECFM=FB»LRECL=240 .BLKSI ZE*2400 ) 


S=*=OLD 


/* 
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00000k)  I 
00<  0 
00000k) 
000000 
000000 
000000  ' 
000000 
oooooo  < 
000000 
00000  1 ( 
000001 1 
OOOOO 1 
000001  ’• 
OOOOO 1 

00000  l 5 
000001 l 
000001 7 
00000  1 : 
00000  1' 
OOOOO?: 

000002 : 
00000? 
OOOOO.? 
00000 
00000 
oop^or 

001  i? 
OOOOO?. 
OOOOO.? 
OOOOO.V 
00000  1 
OOOOO 
00000 
OOOOO 
00000 
00000? 
000003 
OOOOO? 
00000  i 
00000  4 0 
0000  0 A 1 
OOOOO  A.' 
000004  1 
000004 A 
000004'.' 
000  0 04)' 
000004V 
000004 
000004' 
0000053 
0000051 
OC  15 
000005 
000005 
000005 
000005 
000005 
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//  EXEC  I ELEA  SE  »P AR  M= • I 5 7 1 92 3 1 • 
// 


ooooosm  ' 

000005*}, 

00000600 
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Note  1.  The  DSNAME  in  the  first  uncatalog  statement  (line  70)  must 
be  the  same  as  the  DSN  in  the  CHGSTATS  DD  card  (line  530). 

Note  2.  The  DSNAME  in  the  second  uncatalog  statement  (line  80)  must 
be  the  same  as  the  DSN  in  the  STATSOUT  DD  statement  (line  500) . 

Note  3.  The  DSN  in  the  SORTIN  DD  statement  must  be  the  same  as  the 
STATUP  disk  file  output  of  SRS239. 

Note  4.  The  DSN  in  the  STATSIN  DD  statement  must  be  the  same  as 
the  output  from  the  "sort/merge  XJD  and  X239  output"  process. 


225  - 


TM-60423 


3.6.7  Program  Maintenance.  The  following  fields  are  used  by  this  program. 
Any  changes  to  these  fields  in  TRS  may  affect  the  operation  of  this  program. 

NAME  DESCRIPTION 

DO-ACTION  Date  of  action 

MID  Marine  identification  number 

INITS  Initial  letters  of  Marine's  name 


If  program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit, 
and  replace  the  original  load  module  in  LOADLIB. 
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TS?03222  JOB  C 6 0 1 R » MP1 2 ) • * COMP  t LKEO  T SSN • • T I MB * tO 0 . 50 > 
>»  EXFC  LCOaJCL.QFF»MPU.SECT=RETRV#LUia*LQAOLlB.ROOM»MPI. 
//  LM£M« S HST SSN 

//LI a.SYSJN  DO  * 

-OPT  NOLI  ST 

-SEL  SRSTSSN«QS5E.RES£Q. TEMP. EXEC 
-END 
/* 

✓/cob.sysin  oo  osN*tei.iaTEMP 

✓/COa.SYSLia  DO  DSN»HQMC 1 .AP12,C0PYLIB«DISP=SHR 
/♦ 

//LKEO.SYSCla  DO 
//  DO 

//  DD  DSN»MQMCI . API  2 . MMSL 18. D I SP»SNR 

/♦ 

// 


3 3 33 331 3 
00000020 
00000030 
Q3330340 
00000050 
OOOOOOOO 
0000  0 07  0 
00000080 
00000090 
00000100 
03000110 
00000120 
00000130 
00300140 
00000150 
00000100 
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3.7.1  Merge  TSSN  Output.  This  job  is  a two  step  process.  The  first  step 
is  a sort  of  the  changed  records  output  from  SRSTSSN.  The  second  step 
merges  the  changed  records  back  into  the  original  transaction  file. 

3.7.2  Input.  The  input  to  the  first  step  is  the  disk  file  that  was  output 
from  SRSTSSN.  The  sort  fields  are  MID  and  date  of  action.  The  inputs  to 
the  second  step  are  the  (temporary)  sorted  disk  file  from  above  and  the 
tape  output  of  SRSTSSN. 

3.7.3  Output.  The  output  from  this  process  will  be  a tape  file  of  all 
current  transactions  corrected  for  MID  changes.  The  transactions  will  be 
in  sequence  on  MID  and  date  of  action.  This  file  will  be  used  to  update 
the  current  history  file. 

A sample  of  the  printer  output  from  the  "merge  TSSN  output"  process 
follows . 
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3.7.4  Job  Control  Language  for  Execution  of  Process 


The  following  list 

ing  shows  the  complete  set  of  JCL  and  control  cards  for  execution  of  this 
sort /merge. 
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''15719231  JOB  * 701R. MPI3) .• JENKINS-M-TSSN* . TIME=6.TYPRUN=HCL0 
STEPONE  EXEC  PCW»  I EHPRCGM  • PEG  I 0N=80K 
//SYSPRINT  00  SYSOUTsA 
//SYSOUT  OD  SYSOUTa* 

//SYSIN  DO  ♦ 

UNCATLG  DSNAME=HQMC1 .MPI2.C1 080.SRSN.UPSTAT 

/* 

//STEP6  EXEC  PGM* IERRCCOOtREGI 0N= 1 5 OK 
//SORTLIB  DO  DSNsSY  S1.S0RTI_IB.DI  SP  = SHR 
//SYSUDUMP  DO  SYSOUTa* 

//SYSOUT  DO  SYSOUTsA 

//SORT  J N OO  OSN  = HOMC  I .MPI2.C  1 000.  SR SCHG SN . D I SP=OLD 
//SORTWKOl  OO  UNIT=SVS0A.SPACE=(TRK.C500) ) 

// SORT  WK02  OO  UNIT=|  SYSOA . SEP=SORTWKO I > . AFF=SCRT*KO 1 . 

//  SPACE- (TRK»*500>1 

//SORT  WK03  DO  UNIT** SYSDA.SEP=<  SORJ  WKO 1 . SOR T WK02 t > . AFF=SORT NKO I . 
//  SPACE= *TRK,( 500 » ) 

//SORTOUT  OD  DSN«&CHGOUT,DISP=<NEU.PASS). 

//  UNIT=3330 .SPACE** TRK.< 80.2) ) . 

//  DC  B=  * R ECFM=FB  » LR  ECL  = 2 40.8LKSIZ E=  24  00 ) 

SORT  FIELOS  = ( 1 I.  1 0 • CH.  A . 3 . 4 . PO  . A» 

/* 

//STEP7  EXEC  PGM= I ERRCCOO  . REG I CN= I 5 OK 
//SORTLIB  00  OSNsSYSI .SORTLIB. OISPsSHR 
//SYSUDUMP  OD  SYSOUTsA 
//SYSOUT  OO  SYSOUT»A 

//SORT  INO 1 DO  DSI'PHQMC  i .MPI2.C1  080.  SRSN  . STATSOUT  *01  SP=OLO 

//SORT  I N02  OD  DSNa&CHGOUT . O I SP  = CLD 

//SORTOUT  OD  0SNsH0MCl.MPI2. 0080. SRSN. UPSTAT. 

//  D I SP=  *NEW  * CATLG. OELETE I »UN I T =2400—3. 

//  DCB=*RECFM»FB.LRECL=240.BLKSIZE=2400 ) 

//SYSIN  DO  * 

MERGE  FIELDS** 1 l . 10. CH. A. 3. 4. PD. A) 

/* 

//  EXEC  I£LEASE.PARM>*I571913I  • 

// 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

000002SO 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 


- 233  - 


TM-60423 


1 


Note  1.  The  DSNAME  In  the  uncataloR  statement  (line  60)  should  be 
the  same  as  the  DSN  In  the  SORTOUT  DD  statement  (line  290). 

Note  2.  The  DSN  In  the  SORTIN  Dl)  statement  (line  110)  must  he  the 
current  name  of  the  chanRed  (disk)  file  output  from  SRSTSSN. 

Note  3.  The  DSN  in  the  SORTINOl  DD  statement  (line  260)  must  be  the 
current  name  of  the  tape  output  from  SRSTSSN. 
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j.7.5  Process  Maintenance.  The  sort  fields  for  the  Job  are  the  MID  field 
and  the  DO-ACTION  (date  of  action)  field. 
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3.8.1  Program  SRSHSSN.  The  first  step  of  the  job  sorts  a disk  input  (from 
SRS239)  into  old  MID  order.  The  disk  data  records  contain  both  an  old  and 
a new  MID  as  a result  of  the  Rl-AN  transaction  records  for  SSN  changes. 

The  old  MID  will  be  matched  against  the  SRS  history  file.  When  a match  is 
found,  the  new  MID  will  replace  the  old  MID  in  the  history  record.  The 
changed  history  record  will  be  written  onto  a disk  output  data  set  since 
it  will  no  longer  be  in  the  correct  sequence.  The  unchanged  records  are 
written  onto  a tape  in  their  original  sequence. 

3.8.2  Input.  This  job  uses  two  inputs.  One  input  is  the  SRS  disk  history 
file.  The  other  input  is  the  HISTUP  disk  data  set  from  SRS239. 

3.8.3  Source  Program.  Following  is  a listing  of  the  source  statements 
for  SRSHSSN. 


07/14/76  INPUT  LISTING  AUT0FL0*  CHART  SET  • SRS  KID  CHGS  TO  HIST  * 1 lE 


07/14/79  INPUT  LISTING  AuTOFLOW  CHART  SET  - SRS  HID  CHGS  TO  HIST  FI(.E 


- 


— r— . 
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000050'  INSTRUCTION.  EACH  4 ITH  APPROPRIATE  PARAMETERS- 


00C530-  TH £ HUF-SRC-FLAG  IS  USED  TO  DENOTE  THOSE  RECORDS  THAT  HERE 


000750  05  A fit- FORM- NUMBER  PIC  XX 


L 


000970  07  DEPOT- 


07/14/76  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  HID  CHGS  TO  HIST  FILE 


90*  LENGTH 


07/1 J/70  INPUT  LISTING  AllTOFLO*  CHART  SET  - SRS 
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07/14/78  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  KMD  CHC-S  TO  HIST  FILE 


07/14/7B  INPUT  LISTING  AUTOFLOW  CHART  SET  * SRS  MID  CHGS  TO  HIST 


07/i4/7i  input  ust:ng  autoflox  chart  set  - srs  wid  chgs  to 
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309  0023S0'  LENGTH  IS  6 BYTES. 


07/14/78  INPUT  LIST! SG  A'JTOFlO*  CHART  SET  - SRS  MID  CHGS  TO  HIST 
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PEA 0 IN-SSN-CHG.  at  eno  go  to  updt- READ-CHECK.  OOCC 1 200 


07/14/78  INPUT  LISTING  AUTOFLOH  CHART  SET  * SRS  MIO  CHGS  TO  HIST  FILE 


376  READ-HIST.  00001440 


07/14/78  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  «I0  CHGS  TC  HIST  FILE 
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| 


Jr  " ' _ ...  : 


4J4  fcBITE  EOJ-OISPLAY-REC  FRO«  TOP-LINES  AFTER  ADVANCING  00002120 


vovE  ' m:d  changes  to  history  file  * to  top-info.  oocoiho 
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3.8.4  Flowchart. 


The  following  chart  is  an  AUTOFLOW  charting  of  the 


SRSHSSN  logic. 


07/14/78  AUTOFLOW  CHART  SET  - SRS  MID  CHGS  TO  HIST  FILE 
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3.8.5  Output.  The  output  from  this  program  will  be  two  data  sets.  One 
data  set  will  be  written  on  disk.  This  is  usually  on  the  order  of  a few 
hundred  records.  The  disk  data  set  consists  of  those  history  records  that 
had  their  MID  changed,  therefore  these  are  not  in  sequence  on  MID  at  this 
point.  The  other  data  set  is  on  tape  and  consists  of  all  the  history 
records  that  did  not  require  an  MID  change.  Thus,  these  are  still  in 
sequence  on  MID.  In  the  next  step,  the  disk  data  set  will  be  sorted  and 
merged  back  into  the  tape  in  the  proper  sequence. 


A sample  of  the  printer  output  from  program  SRSHSSN  follows. 
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//IS719131  JOB  (701H.MPI3).* JENKINS EXEC  HSSN • . T IME-25 .T VPH UN-MOLO 

/,  JBLIB  DO  OSN-HQMC1  "MPJ  .LQAOL l B .0 l SP-SHR 
//alEPONF  EXEC  PGK» I EMPRCGM • RE C I ON* 8 OK 
//SYSPRINT  00  SYSOUT » A 
//SYSOUT  OO  SYSOUT  "A 
//SYS1N  OD  4 

UNCATLG  DSNAMfc*HQMC I .MPf  2.C I OSO.SRSHl ST.TEMPN 
UNCATLG  0SNAME*HQMCl.MPI2.C10aQ.SRSCHGHN 

/♦ 

//STEP 1 EXEC  PGM" IERRCOOO 
//SORTLI8  00  DSN-SYS1 .SORTL18.D1 SP- SHR 
//SVSUOUMP  00  SYSOUT-A 
//SYSOUT  OO  SYSOUT-A 

//SORTIN  OO  OSN-HOMC1 .MP I 2 .C 1 000. SRSN .M 1 S T UP . O I SP-OLO 
//SORT  WK  0 1 OO  UN  I T— SY SDA » SPACE" 4 TRK  .4  100)  ) 

//SORTNK02  OO  UN  I T» 4 SYSOA • SEP-SCRT WKO I > • AFF-SCRT MKO 1 • 

//  SPACE-4 TRK. < 100)  ) 

//SORT  WK03  OO  UN  IT" I SYSOA • SEP* ( SORT WKO 1 • SORT MKO 2 ) ) . AFE*SORT  WK  01 • 

//  SPACE-1 TRK,<  100)  ) 

//SORTOUT  OO  OSN*tHISTUP.DISP"tNEW.PASS). 

//  UN  I T *3330*  SPACE*  1 TRK • < 00*211  • 

//  OCB"<  REC7rM-FB.LRECL*20.BLKSI  ZE-2000) 

// SYS I N DO  4 
SORT  EIELOS*4 1 • 1 O.CH.A) 

/* 

//  EXEC  PGM* SR  SHSSN .REG I ON— 1 SOK 


//SYSPRINT 

OO 

SYSOUT-A 

//SYSOUT 

OO 

SYSCUT-A 

//SYSUOUMP 

OO 

SYSOUT-A 

//SYSOBOUT 

OO 

SY  SOUT* A 

// ERRMESSG 

DO 

SY  SCUT*  A 

//SYSPRINT 

OO 

SYSOUT-A 

//SSNCHGIN 

OO 

OS  N"  &H I STUP . 0 1 SP* 4 OLD. DELETE ) 

//INPUT  OO  O I SP— OLD* VOL* 1 PR IVATE***  SER* ( SRSOO 1 . SRS  002. SR  S003 ) 1 • 

//  DSN— NQMC 1 • MP 1 2 .C 10  0O«SRS“MAST • UN IT*  3330 

//OUTPUT  OO  DSN-HQMCl .MP1 2. C 1 080. SRSHI ST.T EMPN • 

//  UN1T-2AOO-3. 

//  VOL-4...1S), 

//  DISP-INEW.CATLG. DELETE) . 

//  DCB"4RECFM"VB,LRECL*6000*BLKS( 26*13030) 

//OUT  C HG  OO  DSN-HOMC 1 .MP I 2.C 1 000. SRSCHGHN • 

//  Ot  SP* 4 NEW.CATLG* DELETE)  .UNIT-333  0. 

//  SPACE* 1 TR  K . ( 2.2) *RLS£ ) • 

//  DCB-4RECEMaVB.LRECL*6000.BLKSIZE-13030) 

/* 

//  EXEC  I EL EASE .PARM* • 15719151* 

// 


00000010 

00000020 

00000030 

00000040 

ooooooso 
00000060 
00000070 
00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000190 
00000160 
00000170 
00000160 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00060360 
00000370 
00000300 
00000390 
00000400 
0000041 0 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
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Note  1. 
be  the  same  as 

Note  2. 
be  the  same  as 

Note  3. 
data  set  name  < 


The  DSNAME  in  the  fir9t  uneatalog  statement  (line  70)  must 
the  DSN  in  the  OUTPUT  DD  statement  (line  360). 

The  DSNAME  in  the  second  uncatalog  statement  (line  80)  must 
the  DSN  in  the  OUTCHG  DD  statement  (line  410). 

The  DSN  in  the  SORTIN  DD  statement  must  be  the  current 
f the  HISTUP  file  output  from  SRS239. 


Note  4.  The  INPUT  DSN  will  always  be  the  SRS  master  file  name 
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3.8.7  Program  Maintenance.  The  Mil)  field  Is  the  only  field  used  by  the 
program. 

If  program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit, 
and  replace  the  original  load  module  In  1.0ADL1B. 


I 
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//I57031J2  J 08  <60 1R.MPI2I .'COMP  t LKED  MSSN* . I l ME= < 00. 50) 

//  EXEC  LCUauCL.OFF=MPI 1 . SE C T=BE TRV . LL I a*LOADJ  9 . ROOM-MP I • 
//  LMfcMsS  HSM  S SN 

/✓LIB.SYSIN  DO  * 

•OPT  NOLIST 

•SEL  SBSHSSN*Q55F.HESEQ.  TEMP. EXEC 
-ENO 

/* 

//COB.SYSIN  DO  OSN^tfcLIBTEMP 

•'7 COB.  SY  SL  I 8 DD  D SN»HOMC  1 . AP  l 2 . COPYL  I B.  D 1 SP* SMB 

/• 

.'✓LKED.SYSL1B  00 
•'/  DO 

//  00  DSN«HQMCI.AP12.MMSLIB.0ISPsSHR 

/* 

// 


00000010 

00000020 

00)00030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 
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3.9.1  Merfte  HSSN  Output.  This  job  Is  a two-step  process.  The  first  step 
is  a sort  for  the  changed  records  that  were  output  on  disk  by  the  SRSHSSN 
program.  The  second  step  will  merge  these  changed  records  back  into  the 
original  file. 

3.9.2  Input.  The  input  for  this  process  is  the  file  consisting  of  changed 
records  that  was  output  on  disk  by  the  SRSHSSN  program. 

3.9.3  Output . The  output  of  this  sort/raerge  process  is  a tape  data  set 
of  the  SRS  history  file  with  the  SSN  changes  applied.  This  data  set  is 
now  ready  to  be  matched  up  with  the  transactions  (that  have  also  had  SSN 
changes  applied)  in  the  update  process. 

A sample  of  the  printer  output  for  the  "merge  HSSN  output"  process 
follows. 
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'/1S719151  JOB  (701R.MPI3).* JENKINS-MERGE  HSSN* . T IME= 1 0 ,TYPRUN*HOLD 

'/ STEPCNE  EXEC  p6m» 1 EHPROGM . REG I 0N«8 OK 

//SYSPRINT  DO  SYSOUT  aA 

//SYSOUT  OO  SYSOUT  = A 

'/SYSIN  DO  * 

UNCATLG  OS NAME a HQ MCI . MP I 2 .C 1 08 O.SRSN . UPH I S T 
/ > 

VSTEP6  EXEC  PGM"  j ERRCOOO . REGION" 1 5 OK 
'/ SORTL I B OO  OSN"SYSl .SCRTLIB.DI SP*SHR 
//SVSUOUMP  OO  SYSOUT"A 
//SYSOUT  OO  SYSOUT=A 

'/SORT I N OO  OSN"HQMC1.MPI2.C1080. SRSCHGHN • 0 I SP"CLO 
//SORTWKOl  OO  UNIT«SYSOA.SPACE*(TRK.CSOO» ) 

//SORT  WK02  OO  UNIT"( SYSOA «SEP*SORT«KO 1 ) «■ AFF*S0RTWK01 . 

//  SPACE— (TRK.C500)) 

// SORT  MK03  DO  UN  IT* < SV SOA • SEP* ( SORT »K0 1 . SORT MK02 ) > * AFF=*SORT MKO I • 

'/  SPACE"!  TRK.CSOO)  > 

//SORTOUT  OO  DSN"&CHGOUT.OlSP» (NEW, PASS) • 

//  UNIT3*  3330  • SPACE*  I C Yl»  .<02. 2))* 

//  OCB=(RECFM*VB.LRECL=6000  . BLKS I ZE* 1 3030 ) 

1 '/SYSIN  OD  * 

SORT  F lELOS*<  35*  10.CH.A) 

RECORD  TYPE"V .LENGTH" <3 560.  • .288.288) 

/* 

//STEP7  EXEC  PGM" IERRCOQO , REG  I ON* IS OK 
//SORTL IB  OO  OSN"SYSl.SORTLia.DlSP*SHR 
'/SYSUOUMP  OO  SYSOUT*A 
//SYSOUT  00  SYSOUT 

// SORT  I NO 1 OO  DSN"6CHG0UT.D ISP" COLD. DELETE) 

//SORT INQ2  OO  DSN" HQMC 1 • MP I2.C1080. SR  SH 1 ST  « TEMPN.OI SP=OLO 
//SORTOUT  OO  DSN*HQMC1.MPI2.C1080.SRSN..UPHIST. 

//  OI SP"<NEW. CATLG. DELETE) .UNI T*24 00-3. 

//  VOL" I • • • IS). 

//  DCB"CRECFH»VB.LRECL*6000.BLKSIZE*13030I 

'/SYSIN  DO  * 

RECORD  TYPE" V.LENGTW"!  3560 ...288.288) 

MERGE  F I EL  0S"( 33.10.CH.A) 

/A 

//  EXEC  IELEASE.PARM"* 15719161* 

// 


000000  10 
00000020 
00000030 
00000040 

ooooooso 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

000002S0 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000390 

00000360 

00000370 

00000380 

00000390 

00000400 
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Note  1.  The  DSN  In  the  SORTIN  DD  statement  (line  120)  should  be  the 
same  as  the  changed  record  file  output  from  SRSHSSN. 

Note  2.  The  DSN  in  the  SORT1N02  DO  statement  (line  300)  should  be 
the  same  as  the  unchanged  output  from  SRSHSSN. 

Note  3.  The  DSNAME  in  the  uncatalog  statement  (line  60)  should  be 
the  same  as  the  DSN  in  the  SORTOUT  DD  statement  (line  310). 


(. 
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3.9.5  Process  Maintenance.  The  S 
used  In  this  process. 
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3.10.1  Program  SRSUPDT.  This  program  is  the  first  update  for  the  SRS 
history  file.  It  takes  the  output  from  the  "Merge  HSSN  output"  step, 
a transaction  file  and  the  current  RAMS  file  to  produce  an  updated  history 
file. 


The  history  file  that  la  produced  as  output  must  always  be  rewritten 
since  the  existing  history  records  will  grow  In  size  and  occupy  more  space 
than  they  did  before.  A history  record  that  has  no  transactions  to  he 
posted  is  Just  copied  from  Input  to  output.  When  transactions  do  exist 
for  a Wistory  record,  all  transactions  are  posted  to  the  record  and  then 
written  on  the  output.  For  new  accession  transactions,  no  history  record 
will  exist.  Therefore,  for  new  accessions  a brand  new  history  record  will 
be  constructed  from  the  accession  record  and  a matching  RAMS  record.  If 
the  transactions  do  not  have  a history  record  to  update  or  if  they  fail 
some  validation  check,  they  are  written  out  as  error  transactions  with  an 
error  code  indicating  the  failure.  (See  Section  3.10.8  for  the  error  code 
list.) 

3.10.2  Input.  There  are  three  inputs  to  this  program;  Transactions, 
History,  and  RAMS.  The  transactions  have  had  MID  changes  applied  and  were 
output  from  SRSTSSN.  The  history  has  also  undergone  MID  changes  and  is 
the  merged  output  from  the  "Merge  HSSN  output".  The  current  RAMS  file 
should  be  used  for  the  RAMS  input. 

3.10.3  Source  Program.  Following  is  a listing  for  the  source  statements 
for  SRSUPDT. 


07/ IB/78  INPUT  LISTING  AuTOFICtt  CHART  SET  - SRS  UPOATE  S«S  H1STCRV 


07/18/78  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  UFOATE  SSS  HiSTORV 


BLOCK  CONTAINS  0 000CG6C0 


TM-60423 


241  05  FST-GRD-LETN  PIC  X.  00001570 


07/16/ >8  INPUT  LISTING  AUTOFlG*  CHART  SET  - SRS  UPDATE  SRS  HISTORV 
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309 


308  000620*  ENLISTMENT  AREA  OPENED  UP. 
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07/18/73  INPUT  LISTING  4UT0FL0W  CHART  SET  - SRS  UPDATE  SPS  HISTORY 
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07/18/78  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  LOCATE  $RS  HISTORY 
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3.10.5  Output.  There  are  four  output  data  sets  from  the  update  program: 

1.  The  SRS  History  file  which  has  had  the  latest  transactions 
posted  to  each  record.  This  data  set  is  written  on  disk  packs. 

2.  A tape  copy  of  the  SRS  history  file  which  is  a back-up  copy  of 
the  disk  history  file. 

3.  A tape  copy  of  transaction  errors.  If  a transaction  does  not 
have  a history  record  to  update  or  if  it  fails  some  validation 
or  edit  check,  it  is  written  out  as  an  error  record  on  this 
tape  data  set.  The  record  will  have  an  error  code  inserted  in 
the  KC-CYC-NUM  field  to  indicate  the  type  of  error  that  was 
encountered . 

4.  A tape  copy  of  archival  records.  When  an  SRS  history  record 
is  an  inactive  record  and  has  not  had  a transaction  posted  for 
five  years,  the  record  is  written  out  on  the  archival  file  and 
dropped  from  the  SRS  history  file. 

A sample  of  the  printer  output  for  program  SRSUPDT  follows: 


505  - 


STATISTICAL  KETMEval  smEW 


statis.  cal  REnievAi  srsr; 


WHITTEN  0010*42720  016  AO  BA  730702  2-03 


TN  (.042  3 


3.10.6  Job  Control  l.anguagc  foi  K.xoout  Ion  ol  Program.  Th*  following 
listing  shows  tho  complete  sot  of  JC1.  ami  control  cards  for  program 
exocut  Ion. 
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//IS71R161  JOB  ( 701R.MPI  3)  , ‘UPDATE  CAPT  JENKINS*  » T YPRUN^Hfll.D  » 

//  RO  = NR  ,MSGLFVEL*=<  1 * I > , 

//  TIME  = tR<>) 

//JOOLIB  BO  DSNeHQMCI  .MPI  .LUAOLIH.DI  SP*SMR 
//STEPONH  EXEC  PGM=  I EMPROGM  . RFC. I ON  = BOK 
//SVSPRINT  OB  S VSOUT  = A 
//SYSCUT  DO  SYSOUT=A 
//SYSIN  DD  ♦ 

UNCATLG  DSNAME^HOMCI  .MPI ?.C I OH 0 . SRS . ARC 7 70 3 
UNCA  TLG  DSNAME=HQMC  I . MP|  7,  C l OHO  . SWS  . ABC  7H03 
UNCATLG  OSN  AMR  =MOMC  t .MPI 5».C 1 OH 0 . SR S.  FMH  S 7 70 3 
UNCATLG  OSNAME^MOMCl  .MPI  J*.C  I OHO  .SRS.  F MR  S 700  3 
UNCATLG  0SNAME=HC1MC  1.MPI2.CI080.  SRSM770  3 
UNCATLG  OSNAME*HQMCl .MPI 7. C I OHO . SRSM 7H0 3 
UNCATLG  OS NAME  *MGMC I . MP t J».C 1 OHO . SRS .CHECKP 
/♦ 

//  EXEC  LCOBUCLG.CF F=MP I 1 . SEC  T*=RF.TRV  • 

//  PARM. COB  a ( L I B • NOOFCK • L OAO • NOOM AP» NOPM AP , SUPM AP . NO XREF . SI  A TF • S XFFF . 
//  *S I7E^I I 4K*  ,*nUF=I»K* ) . 

//  FEGICN.LKED’=ROK, 

//  REG  I ON  • GO'S  ?00K 

//LIB.  SYSIN  DO  ♦ 

-OPT  NCLIST 

-SEL  SHSUPOT ,Q55G,FXEC 
-ENO 
/* 

//COB. SYSIN  DO  DSN-*  Rf.L  I BI  FMP 

//COB.SYSLTR  OO  OSN^HOMCl.APl^.COPYLIO.Ot SP^SHR 
/* 

//LKEO.SYSL ID  OO 
//  OO 

//  OO  DSN*HOMC 1 . A°l 2. MMSL IB  »OI S°~SHR 

/* 

// GO .SYSPRINT  OO  SY SOUT* A • DCB« < RECFM«UA . BLKS I 7E  = I 3 3 I 

//GU.SYSOUT  OO  SYSOUT=A 

//GO .SYSUOUMP  OO  SYSCUT=A 

//GO .SYSOBOUT  OO  SYSOUT=A 

//GO.ERRMESST  DO  SYSOUT*A 

//GO.^RRMESRM  OO  SYSC1UT=A 

//GO.RAMSFILE  OD  O I SP  = SHR  , OSN-?MQMC  l .MP  I 3 .C  l OH  I .PI  H.R  AMS.  MM  . G 7H0  3 VOO  * 

//  OCB^CEROPT  = SKP ) 

//GO.STA1FILE  OO  O I SP*OLO .OSN*HOMCl . MPI ?.C 1 080. SRSN .UP5T  AT 
//GO. INPUT  OO  OISP*OLO.OSN*HCJMCI  . MP I 2 .C l 080 . SRSN . UPM I ST 

//GO. OUTPUT  DO  OISP-OLO. 

//  DSN=NOMC 1 . MP I2.CI080. SH  S— M AS  T . 

//  UNI  T = 3 3 30  » VOL5* PR  I VATE  * 

//  OCB»<RECFM«VB.LRECL-6000»BLKSI 7F-I 30  30  i 

//GO.STATFRR  OO  O I S°  = ( NEW • C ATL  G. C ATLG) .UNIT  *2400-3  » 

//  OCB= (MECFM-FB ,1 RFC  l «/«0,BLKSI 7024  00)  . 

//  OSN-MGMC I .MPI 2. Cl OHO . SRS . LWRS 7H03 

//GO.OUTCMG  OO  OSN*MOMC I .MPI 2 .Cl OOO. SRSMT803 • 

//  O I SP=*<  NEW  .CATLG .CAT  LG  ) .UNI  0 2400-3. 

//  OC  B - CRFCEM*V0 .1  P FCL *8000 • HLK SI  7E~  1 30.10  ) 

//GO.OUTPHK  OO  OSN*MOMC I .MPI 2.CI 080.SRS. ARC7803. 

//  01  SP* (NEW. CATLG.CA II  GI.UNIOP4  00-3. 

//  OCB*(BECFM*VB«LRFC.I  -6000.BLKSI  7.F*1  3030) 

//GO.SRSCKPT  OO  OSN  -HOME  I • Ml»  12.C1080.  SRS.  CHECKP.  UN  I t 33.10. 

- 110  - 


003  '.»«>  I 
00  Jo  • 
OOOOOO  • 
0000005 
OOOOOO 
OOOOOOl 
OOOOOO  r 
OOOOOO 
OOOOOO*-' 
OOOOO  1 .1 
OOOOO  I I 
OOOOO  1 .• 
OOOOOl  ' 
000001  *> 
OOOOO  I •• 
OOOOO  I f 
OOOOOl 
OOOOO \ 
OOOOO I 
OOOOO 

00000 
0000 

00001 
0000. 
OOOOO 
00  0 
O 0 1,.  ..  0 
OOOOO 
0000< 
0000. 
OOOOO 
OOOOO 
000003 
000003 
000003 
OOOOOl? 
000003 . 
OOOOO  Vi 

00000  3* 
000004(> 
000004 l 
000004.' 
000004  ' 
0000044 
000004'. 
000004." 
000004  .• 
000004  }. 
000004-5 
000(10*.  * 
OOP'O-S  1 

01  os.* 
00000*. 
OOOOO - 
OOOOO 
OOOOO*  . 
OOOOO 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  100)  should  be 
the  same  as  the  DSN  in  the  OUTPRK  DD  statement  (line  540) . 

Note  2.  The  DSN  in  the  uncatalog  statement  (line  120)  should  be 
the  same  as  the  DSN  in  the  STATERR  DD  statement  (line  500). 

Note  3.  The  DSN  in  the  uncatalog  statement  (line  140)  should  be 
the  same  as  the  DSN  in  the  OUTCHG  DD  statement  (line  510) . 

Note  4.  The  DSN  in  the  uncatalog  statement  (line  150)  should  be 
the  same  as  the  DSN  in  the  SRSCKPT  DD  statement  (line  570). 

Note  5.  For  each  subsequent  SRS  System  run,  the  DSNs  in  lines  90, 
100,  110,  120,  130,  140,  500,  510  and  540  should  be  changed  to  reflect  a 
new  date.  This  is  done  by  adding  three  months  to  the  "date  portion"  of 
the  DSNs  on  these  lines.  For  example,  when  making  the  June  1978  SRS 
System  run  the  DSNs  should  read  as  follows: 

line  90:  DSNAME=HQMC1.MPI2.C1080.SRS.ARC7706 

line  100:  DSNAME=HQMC1.MPI2.C1080.SRS.ARC7806 

line  110:  DSNAME=HQMC1. MPI2. C1080. SRS. ERRS 7 706,  etc. 


( 
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3.10.7  Program  Maintenance.  All  of  the  fields  in  SRS  are  involved  in  the 
update  process.  Any  changes  to  the  source  fields  (in  TRS  or  RAMS)  could 
have  an  effect  on  the  update  program. 

This  program  calls  the  assembler  language  routines  RF.ADER,  READCH 
and  READRK.  If  the  lengths  of  any  of  the  SRS  record  areas  change,  then 
the  appropriate  table  entries  of  urea  lengths  must  be  changed  in  the 
assembler  routines.  For  example,  if  the  length  of  the  Military  Education 
area  changed  then  the  following  steps  would  be  necessary.  First,  change 
the  table  entry  in  all  the  assembler  routines  for  the  military  education 
length  located  in  the  OUTLNGS  table.  Next,  reassemble  and  link  edit  the 
assembler  routines. 

The  COBOL  File  Description  (FD)  for  the  Military  Education  area 
should  then  be  corrected  to  reflect  the  new  length,  extra  fields,  etc. 

Next,  copy  the  history  file  using  the  just  modified  assembler  routines. 
(Only  READER  is  needed  for  this  copy  but  it  is  good  practice  to  keep  all 
three  assembler  versions  in  phase  at  all  times.)  What  this  copy  will 
accomplish  is  to  read  the  old  history  file  at  the  previous  length  given 
for  Military  Education  and  write  out  new  records  at  the  revised  length 
for  Military  Education.  Next,  change  the  entry  in  the  1NLNGS  table  for 
Military  Education  in  all  three  assembler  routines,  reassemble  and  1 ink 
edit.  In  the  COBOL  update  program,  the  number  that  is  moved  into  the 
NOMINAL-LEN  table  representating  Military  Education  must  be  changed  to  the 
proper  value  (in  the  OPEN-ROUTINE)  and  then  recompiled  and  link  edited. 

Now  the  system  is  ready  to  handle  Military  Education  on  a routine  basis. 

If  program  changes  are  necessary  for  SRSUPPT,  the  following  sequence 
of  cards  will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link 
edit  and  replace  the  original  load  module  in  LOADLIB. 


1 


- 312  - 
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//  n.tl52  JOB  <o01R.MPI2».«  TEEPLES— COMP  UPOT*.TIMc=t03> 
//  EXEC  i COUUCL.OFF-=MPI  1 . SECT--RETfiV.LL£B  = LOAOL13.RUOM=MPl  . 
//  L MEM  = S RSUPOT 

/ /L  I l)a  SVS1N  OO  * 

*QPT  NOLI  ST 

•-SSL  SK5UP0T  .QS5G.RESEQ.EXEC 
-ENO 

/* 

//COB. SYS IN  03  OSN=6&LIBTEMP 

//COB.SYSLIB  DD  DS N=HQMC 1 . API  2. CQPYL I 3 . O I SP= SHR 
/* 

//LKED.SYSLIB  00 
//  OO 

//  OO  DSIM*HGMC1  .AP12.MMSLIB.DI  SP=SHR 

/* 


00000010 

00000020 

000)0330 

00000040 

00000050 

00000060 

00000070 

ooooooao 

00000090 

00000100 

00000110 

00000120 

03333130 

00000140 

00000150 


r 
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If  it  is  necexsarv  to  change  RF.ADFR,  RF.ADCH  and  RKAURK,  the  following 
sequence  of  cards  will  retrieve  the  source  program  from  1.1  HRARI AN  and  com- 
pile. link  edit  and  replace  the  original  Load  module  in  I.OADLIB. 
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/IS70J022  JOB  (601R.MPI2)  TEEPLES-ASSM-LKEO * . TI.ME=(02) 

/ EXEC  LASMFCL  . QFF=MP  l l «SECT  = RETRV  .LH  8=LCA0L  lB.ROOM  = MPl  , 
/ PARM.LKED=*XREF,NCAL.LIST,LET' . 

V LMEM= HEADER 

’ /L 10*  SY  SIN  DO  * 

JPT  NOUST 

-•.EL  READER .BKHL .REStO. TEMP, EXEC 
END 
'* 

//ASM  • SYS  I N DD  DSN-a&C  TEMP 

/ * 

'/LKED.SVSLMOO  DD  DSN=HOMC 1 . AP 1 2. MMSL l B ( RfcAOE R > . O I SP=SHR 
'/LKEO.SYSIN  00  * 

ALIAS  WRITER 
ALIAS  CLOSER 

/ * 

// 


000000  I 0 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
00000 1 20 
00000130 
00000140 
00000150 
00000160 
00000 1 70 


i ' 


515 
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101.'  Jl  U <t>0  IP  ,MPI  2)  , • TEEPLES-ASSM-LKhO  • , T IME  = ( 02  ) 

//  EXtC  LASMFCL *OFP  =HP I 1 ,S£C t-RET SV ,LH B=LOADL l B.Pl)UM=MPl  . 
/ / PARM.LKtO- • XREE  »NCAL .LIST .LET*  * 

//  LMtW=HtAOCh 

//lib.sysin  oo  * 

-0°T  NOLIST 

-SCL  MEAOCM.XKCO.WESEQ. T E'P.cTEC 
-E  NO 

✓ * 

//ASM.SYSIN  DO  OSN=t&TEMP 
/* 

//LKE-D.SYSLMOD  DO  OSN- HOMC  1 . AP 1 2 . MM SL 1 B ( HE ADC H > , D I SP  = SHH 
//LKtD.SYSIN  DO  * 

ALIAS  WHITCH 
ALIAS  CLCjSCH 

/* 

// 


000000 l 0 
00000020 
000000 30 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
00000  1 10 
00000120 
00000130 
00000  140 
00000150 
00000160 
000001 70 
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//I570J0J2  JOB  (60IH .MPI 2) . • TE EPLES -A S SM-LKE 0 • ,TIME*< 02  ) 

//  EX  EC  LASMFCL .CFF-MPI  1 . SECT=KET RV ,LL I B=LLADL I 8. RCCM=MPI • 
//  PARM.LKED=  »XREF,NCAL ,L 1ST .LET • , 

//  LMEM=REAORK 

//LIB.SYSIN  00  * 

-OPT  NOLIST 

-SEL  REAORK .XXL F, RE SEO. TEMP, EXEC 
-END 

/* 

//A3M.SYSIN  OO  OSN  = te.TEMP 

/* 

//LKEO.SYSLMOO  00  DSN=HQMC I . As l 2. MMSL I B ( READRK. ) , 01 SP=SHR 
//LKEO.SYSIN  OO  * 

ALIAS  MRITRK 
ALIAS  CLOSRK 

/* 

// 


00000010 
00000020  | 
00000030 
00000040 
00000050 
00000060 
QO  00007  0 
00000080 
00000090 
00000100 
00000 1 1 0 
00000120 
00000130 
00000140 
00000150 
00000160 
000001 70 


I ? 
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3.10.8  Error  Messages  from  SRSUPDT.  Some  of  the  transactions  that  are 
fed  into  SRSUPDT  may  fail  some  of  the  validation  checks  built  into  the 
program.  For  example,  a transaction  may  indicate  that  a Marine  is  return- 
ing from  desertion  when  the  history  file  has  no  record  of  the  Marine 
deserting.  Following  is  a list  of  error  codes  that  are  associated  with 
those  records  that  fail  the  edit  tests. 
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A-0 l - An  A7  (from  desertion)  transaction  record  lias  been  found  with  no 
record  of  a previous  'to  desertion'  (R4)  transaction. 

A-02  - An  A7  transaction  record  has  been  found  with  a date  preceding  the 
"to  desertion"  date. 

A- 03  - An  A-type  transaction  record  has  been  found  where  the  history  record 
has  no  initial  enlistment  information. 

A- 04  - An  A-type  transaction  record  has  been  found  that  does  not  fit  into 
the  enlistment  update  logic. 

A-05  - An  A5-type  transaction  record  has  been  found  where  the  date  is  not 
greater  than  the  present  enlistment  date. 

A- 06  - An  A5-type  transaction  record  has  been  found  where  no  valid  previous 
R-entry  appears. 

A-07  - An  A7  (from  desertion)  transaction  has  been  found  with  no  "open" 
desertion  record. 

R-01  - An  R4  (to  desertion)  TRS  record  has  appeared  without  an  A7  (return 
from)  for  the  last  instance  of  desertion. 

R-02  - An  R-type  TRS  record  has  been  found  where  no  initial  enlistment 
data  appears  in  the  SRS  history  record. 

R-03  - An  R-type  TRS  record  has  been  found  that  does  not  fit  into  the 
enlistment  area  logic. 

R-04  - An  R2/R5-type  TRS  record  can  not  be  matched  up  with  its  proper 
A-type  data. 

R-03  - An  RI/R3  type  TRS  record  has  invalid  data  in  date  of  action  field. 
R-06  - An  R2/R5  type  TRS  record  has  been  found  that  pre-dates  the  SRS  file. 


519  - 


TM-60423 


li—  0 1 - A 119  transaction  has  been  found  with  a II1-U5  predecessor  and  no  UA 
with  a matching  date. 

U-02  - A U-type  transaction  has  been  found  that  is  not  a Ul,  U5,  116,  U7, 
or  U9  (or  UA) . 

U^Ol  - A Ul  transaction  has  been  found  when  there  is  an  "open"  Ul  area 
already. 

U-04  - A Ul  transaction  with  a cor rection/deletion  code  of  2 does  not  have 
a previous  record  to  correct. 

U-05  - A Ul  transaction  with  a correction/deletion  code  of  2 does  not 
have  an  "open"  Ul  record  to  correct. 

U-06  - A Ul  transaction  with  a correction/deletion  code  of  1 does  not  have 
a previous  Ul  record  to  correct. 

U-07  - A Ul  transaction  with  a C/D  code  of  1 does  not  have  an  "open"  Ul 
record  to  correct. 

U-08  - A U5  or  U6  or  U7  transaction  has  been  found  with  no  previous  Ul 
entry. 

U-09  - A U5  or  U6  or  U7  transaction  has  been  found  with  no  "open"  Ul 
entry . 

U-10  - A U5  or  U6  or  U7  transaction  with  a C/D  code  of  1 or  2 has  been 
found  without  a U1-U5  or  U6  or  U7  predecessor. 

U-ll  - A U9  transaction  has  been  found  with  no  previous  Ul  entry. 

' H 

U-12  - A U9  transaction  has  been  found  with  a C/D  code  of  1 or  2 and  no 
previous  U1-U5-U9  record. 

U- 13  - A U9  transaction  has  been  found  without  a U1-U5  predecessor  and  no 
UA-short  entry:  may  predate  the  file. 


4 
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D-01  - A l)-typo  transaction  was  found  that  does  not  fit  into  the  grade 
update  logic. 

D-02  - No  previous  grade  exists. 

D-03  - A DB/DH/D2  (pronx>tlon)  transaction  was  found  where  the  new  grade  is 
not  greater  than  the  old  grade. 

l>-04  - A DC/D4/D3  (reduction)  transaction  was  found  where  the  new  grade  is 
not  less  than  the  old  grade. 

E-01  - An  E-type  transaction  does  not  fit  into  programmed  logic. 

Z-01  - Transaction  record  with  no  matching  SRS  history  record  (not  an  AO 
or  AN-001  combination,  or  A6). 

Z-02  - Transaction  record  which  is  not  an  A- , R-,  D-,  U-,  E-type  or  JD, 

JP  type. 

Z-03  - RAMS  record  with  no  mathclng  SRS  history  record. 

Z-04  - RAMS  record  with  missing  or  invalid  depot  scores  where  the  master 
record  is  more  than  6 months  old. 

Z-05  - Apparently  duplicate  transaction  record. 
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3. 1 0. 9 Checkpoint /Restart . During  tlu*  running  of  program  SRSUPDT,  a 
checkpoint  is  taken  at  every  10,000  records  read  on  the  input  transaction 
file. 

The  following  are  the  instructions  for  restarting  the  job  from  the 
last  successful  checkpoint. 

1.  On  the  job  card,  all  the  usual  parameters  must  be  included  plus 
MSGLEVEL”  ( 1 , l ) , RD=*NR  . The  last  parameter  is  a restart  defini- 
tion indicating  that  nonautomatic  restart  is  desired.  As  the 
job  progresses,  checkpoint  messages  will  be  printed  at  each 
checkpoint . 

2.  To  restart  a job,  use  the  same  JCL  as  for  the  original  Job. 

The  parameters  in  the  job  card  are  the  same  as  above  with  the 
additional  parameter:  RESTART3 (STEPNM,C00000nn)  ; where 
STEPNM  is  the  name  of  the  job  step  where  the  checkpoints  were 
taken  and  nil  is  the  number  of  the  last  successful  checkpoint. 
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J-i-U.* 1 Mor&p  Archives  Process.  This  process  takes  the  archival  output 

from  the  previous  update  run  and  merges  it  with  the  historical  archive 
file.  The  resulting  output  is  the  new  historical  archive  file. 

— J-Ll? — iDEHi*  The  two  inputs  to  this  process  are  the  archival  records 
output  by  the  previous  (step  10)  update  run  and  the  current  historical 
archive  file. 

1 * 3 — The  output  from  this  merge  is  the  new  historical  archive 
file. 

A sample  of  the  printer  output  for  the  merge  archives  process 
follows. 
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3.11.4  Job  Control  Languages  for  Execution  of  Process.  The  following 
listing  shows  the  complete  set  of  JCl.  and  control  cards  for  this  merge 
execution. 
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//lii/l'll/i  JOH  ( 7 0 1 R , MU  I 3 ) , • MERGE  ARCH* .TYPRUNshOLO.T rME=< 5) 

//STLPl  LXtC  PGM*  I EH  PH  COM  . REG  I CNsSOX 

//GYSPHINT  CL)  SYSOUT=A 

//sysout  i)j  sYSour-A 

//SYS  I N ot)  * 

UNC  ATLo  JSNAH--HQVCI  .MPI2.C1080.SRS.rAHC/7O3 
UNC  ATl.S  DSN  A ME  = HQ  MCI  .MP12.C1080.SHS.TARC7803 
/* 

'/srer»2  lxlc  pgm=  i erhccoo  .RcG icn- isok 

//SORTLIQ  DO  OSN-SYSl  .SORTL  ID.DISP=SHH 

//SYSUUUMP  DO  SYSQUT  = A 
//SYSOUT  CO  SYStur-A 

// SOHT 1 NO  1 DO  OGN=HOMCl.MPI2.C10a0.SHS.TARC7712.OlSP=ULD 
//  SORT  I N 02  DO  l)SN- HO NC  l . MP  I 2 . C l 0 8 0 . SH  S . A PC  780 3 . 0 I SP=OLO 

//SCR TOUT  DO  OSN=HQNCl.MPl2.C1080.SfiS.TARC7803.01SP=( . C A TLG . JtLE T E ) . 
//  UNIT  =240  0—  3 • 

//  OCe*tRECFM=va.LRECL=«iOOO.BLKSlZE=130JO) 

//SYSIN  DO  * 

RECORD  T YPE^V. LENGTHS < 3 560 ...288,288) 

MERGE  F I EL  0S-=  ( JS.10.CH.A) 

// 


OOOOl  0 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
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3.12.1  Program  SRSVHMF.  This  program  matches  the  SRS  history  file  output 
from  step  10  with  the  HMF  file.  If  a match  is  found  then  the  Billet  MOS, 
Current  Civilian  Education,  Marital  Status,  Current  Number  of  Dependents, 
Race,  Sex,  Ethnic  Croup,  Home  - State,  Home  - County,  Date  of  Birth,  Armed 
Forces  Active  Duty  Base  Date,  Expiration  of  Current  Contract,  Pay  Entry 
Base  Date,  and  Citizenship  Status  are  moved  from  the  HMF  record  to  the 
corresponding  fields  in  the  SRS  history  record.  In  addition,  if  a matched 
record  is  an  officer  then  the  following  is  done. 

a)  The  Grade  and  Date-of-Rank  fields  which  make  up  a particular 
grade-area  (area  6)  in  the  SRS  record  are  moved  to  the  particu- 
lar grade-area  + 1.  For  example,  the  Grade  and  Date-of-Rank 

in  grade-area  number  3 are  moved  to  grade-area  number  4 (which 
was  previously  unused) , number  2 is  moved  to  number  3 and 
number  1 is  moved  to  number  2. 

b)  In  all  cases  t he  Grade  of  grade-area  number  1 is  filled  with 
'DFC'  (meaning  Date  of  Rank  First  Commission)  and  the  Date-of- 
Rank  of  grade-area  number  1 is  filled  with  the  Date-of-Rank 
First  Commission  from  the  HMF  file. 

c)  The  count  for  the  grade-area  (area  6)  is  increased  by  1. 

d)  If  the  Grade  field  of  the  first  grade-area  already  contains  a 
’DFC’  then  steps  a,  b and  c are  skipped. 

The  SRS  record  with  the  above  described  changes  is  output  onto  file 
A.  If  the  record  is  on  the  HMF  and  not  on  the  SRS  then  a new  SRS  record 
is  created  and  output  onto  file  B. 

If  the  record  is  on  the  SRS  and  not  on  the  HMF  then  the  active/ 
inactive  flag  is  checked.  If  the  flag  is  inactive  then  the  record  is 
written  onto  file  A.  If  the  flag  is  active  then  the  proper  code  (3)  is 

moved  to  the  flag,  the  date  of  the  HMF  file  is  moved  to  the  separation 

date  and  the  record  is  written  onto  file  A. 

3.12.2  Input.  The  two  files  input  to  this  program  are  the  current  HMF 

file  and  the  SRS  history  file  output  from  step  10. 
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3.12.3 Source  Program.  Following  is  a listing  of  the  source  statements 

for  SKSVUMF. 


lO/lc/78  INPUT  LISTING  AUTOELCW  CHART  SET  - SRS  H«F  MATCH 


10/1  S/7fc  INPUT  LISTING  A'JTOf LCn  CHART  SET  - SPS  HV.F  MATCH 


10/1 C/7C  INPUT  LISTING  A'JTOFLCl*  CHART  SET  - SRS  HMF  MATCH 
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10/1G/7C  INPUT  LISTING  AUTOFLC*  CHART  SET  - SRS  HVF  MATCH 


1U/16/7&  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  HMF  MATCH 


10/16/73  INPUT  LISTING  AUTOFLOW  CHART  SET  - SRS  WMF  MATCH 
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0/I6/7F.  INPUT  LISTING  AUTOFLC*  CHART  set  - SRS  HKF  WATCH 


001550  MOVE  HOME-STATE  CF  HMF01060  TO  HOVE-STATE  OF  FIXED .00002590 
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CC2240  TO  TCP-'S'FO  000C3280 


j 
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-3-12-4 Flowchart.  The  following  chart  is  an  AUTOFLOW  charting  of  the 

SRSVHMF  logic. 
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3.12.5  Output.  There  are  two  output  files  from  this  program.  One  is  a 
file  consisting  of  new  SRS  records,  i.e.  , those  records  which  were  on  the 
HMF  file  but  not  on  the  SRS  history  file  output  from  step  10.  This  file 
is  output  onto  disk. 


The  other  file  output  by  this  program  consists  of  the  records  which 
matched  the  HMF  file  and  those  which  had  their  active/inactive  flag  changed. 
This  file  is  output  onto  tape. 

A sample  of  the  printer  output  for  program  SRSVHMF  follows.  The 
first  page  is  a list  of  identification  information  for  the  records  which 
were  on  the  HMF  file  but  not  on  the  SRS  history  file.  This  is  followed  by 
a count  of  the  number  of  records  on  the  SRS  history  file  which  matched  the 
HMF  file. 
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Control  Language  for  Execution  of  Program.  The 
Listing  shows  the  complete  set  of  JCL  and  control  cards  for 
execut Ion. 


following 

program 
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'/I5/191SI  JOa  1 701R.MPI3) , 'MATCH  FMF  • , T YPRUN=FCLQ  . T I .M£=  t 60  ) 

//.,  .13  UL)  DSN  = H0MC1  .MPI.LCADLIU,DISP=SHR 

//  cXEC  PGM=lEHPRCGM,REGION=8  OK 

//SYSPRINT  PD  S YSOUT— A 

//SYSCLiT  DO  S Y 60  U T = A 

//SYS  IN  on  * 

UNCATLG  0SNAME=H0MC1  . MP I 2 . C l OH 0 . SR S .PNE W 7 70 3 
JNCATLG  0SNAME-H04C  I .M->  I 2.  C l 080.SRS.PNEW7803 
UNCATLG  OSNAME  = HQMC l.MPI 2. C 1 0 6 0 . S RS .PCHG 7 7 0 3 
UNCATLG  DSNA^E  = HQMC1.MPI2.C1000.SRS.PCHG78  03 

/4 

//  EXEC  LCCBUCLG » CFF  = M F I 1 « SECT=RETRV  , 

//  PARM. CUB=(L 18, NODECK.LQAQ .NCDMAP, NOPM AP  ,SUPM AP, NQXREF .STATE, SXREF, 
//  *S  IZE=  1 1 4I<»  , »0UF=  1 6K  • ) . 

//  REGION. LKED=90K, 

//  REGION. GD=I50K 

//LI8.SYSIN  00  * 

-OPT  NOLIST 

-SEL  SRSVHMF  ,GCCD,EXEC 

-REP  970 

MOVE  780300  TC  L AST -CHG-D A TE 

-END 

/* 

//C03.SYSIN  00  DSN=&8L IBTEMP 

/* 

//LKE0.SYSLI8  DO 
//  DO 

//  00  DSN=HC)MC  1 . API  2.MMSL  IB  ,01  SP=SHR 

/# 

//GO  .SYSPRINT  DO  SY  SO  UT  = A , DCE=  C RE  CF  i^=UA  • BLK  S l Z E=  1 33  ) 

'/GC.SYSCUT  OD  SYSCUT^A 
//GO .SYSUDUMP  00  SYSCUT=A 
//GO . SY SO BOUT  DO  SYSCLT=A 

//GO. INPUT  00  D I SP=CLD »DSN=HQMC1.MP12.C1080* SRSM7803 

//GO  .MASTF  ILE  DO  D I SP=  OLD  , DSN=HQM  C 1 . M D 7 1 . C 5 23 0 . PM3HHQM . G 73 03 VO 0 

//GO. OUTPUT  DO  OISP=( NEW ,CATLG ) , 

//  DSN  = HQMC  1 .MPI2.CI  00 0 . SR  S . PNE  V>7 80  3 . 

//  UNI T = 3330 ,SPACE=C  TRK  ,(  100 ,10)  • RLSE I , 

//  DCE=(RECFM=VB.LRECL=6000, BLK S I ZE= t 3030 ) 

//GO.OUTCHC  DO  0 I S P'-  (NEW.CATLG), 

//  DSN  =HQ  MC 1 .MPI2.C1080.SRS.P  CHG7  803 . 

//  UNIT=24Q0— 3, 

//  DCE=  IRECFM  = V8  . LRECL=6  0 0 0.9LKSI  ZB—  1 2030  ) 

/* 

//  EXEC  IELEASc » P AR  M = • I 57  19  19  1 • 

// 


0000001  0 
00000020 
00000030 
00000040 
OOOOOOSO 
00000060 
0000007 0 
00000080 
00000090 
00000 l 00 
000001 l 0 
00000120 
00000130 
00000140 
00000150 
000001 60 
00000 1 70 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000230 
00000290 
00000300 
000003 1 0 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
0000041 0 
00000420 
00000430 
00000440 
00000450 
00000460 


595 


TM-60423 


Note  1.  The  DSN  in  the  uncatalog  statement  (line  80)  should  be 

the  same  as  the  DSN  in  the  OUTPUT  DD  statement  (line  370). 

Note  2.  The  DSN  in  the  uncatalog  statement  (line  100)  should  be 

the  same  as  the  DSN  in  the  OUTCHG  DD  statement  (line  410). 

Note  3.  The  DSN  in  the  INPUT  DD  statement  (line  340)  is  the  name 

of  the  SRS  history  file  output  by  step  10. 

Note  4.  The  DSN  in  the  MASTFILE  DD  statement  (line  350)  is  the 
name  of  the  current  HMF  file. 

Note  5.  For  each  subsequent  SRS  System  run,  the  DSNs  in  lines  70,  80, 
90,  100,  340,  370  and  410  should  be  changed  to  reflect  a new  date.  This 
is  done  by  adding  three  months  to  the  "date  portion"  of  the  DSNs  on  these 
lines. 

Note  6.  For  each  subsequent  SRS  System  run  the  date  in  the  MOVE 
card  on  line  210  should  be  changed  to  reflect  the  date  of  the  current  HMF 
file  (line  350).  For  example,  the  date  portion  of  line  210  now  reads 
"78030".  For  the  next  SRS  System  run  this  card  should  be  changed  to  read: 

MOVE  780600  TO  LAS T-CHG- DATE. 
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3.  12. 7 Proa ram  Maintenance . Although  tho  major  field  used  In  thin 
program  is  tho  MIO  flold,  the  comments  made  In  Section  1.10.7  also  apply 
to  thiN  program. 

H program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit 
and  replace  the  original  load  module  in  I.OADI.IH. 


SO/  - 
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/ / I 5 70  J 1 02  JOB  ( 501 W ,MP l 2) . • COMP  fc  LKtO  5«  S VHMF  • , T I M£=  t 0 1 , 0 0 1 
//  tXEC  LCOHUCL .OFF  = MPI  1 . SEC T =RET B V . LL I O = LC ADL lB,ROCM=MPl . 

//  LMEM=SHSVMMF 

//LlU.SYSlN  DO  ♦ 

-CPT  NOLIST 

-SEL  SMSVHMF .GCCO.HESEO.EXEC 
-END 

/* 

//COtl.SYSIN  DD  DSN-ttLIHTEMP 

// COB • SY  SLID  DD  DSN  =HOMC  l . AP  l 2 . COP  YL  I H , O I SP  = SHH 
/* 

//LKED.SYSL I U DO 
//  DD 

//  DO  OSN=HOMC 1 .AP12. MMSL  IU.DI  EP  = SHR 

/* 

/ / 


000000  l 0 
00000020 
00000030 
00000040 
00000050 
OOOOOObO 
00000070 

ooooooao 

00000090 
000001 00 
00000110 
00000120 
00000130 
00000140 
000001 50 
00000150 
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V 1 3. 1 Program  SRSUPDXX.  This  program  matches  t ho  new  SKS  records 
created  by  atop  12  (file  B),  the  transaction  errors  output  from  step  10 
and  tlio  current  RAMS  file. 

If  the  new  SRS  record  Is  on  the  transaction  errors  file  then  It 
Is  deleted  from  this  file  (since  It  Is  not  really  an  error).  The  RAMS 
file  gives  additional  information  for  the  new  SRS  record  (e.g.  scores). 

A file  of  new  updated  SRS  records  and  leftover  transaction  errors  Is 
output . 

3.13.2  Input . There  are  three  inputs  to  this  program:  a)  the  new  SRS 

records  output  by  step  12  (file  B) , b)  the  transaction  errors  output  by 
step  10  and  c)  the  current  RAMS  file. 

1.13.3  Source  Program.  Following  is  a listing  of  the  source  statements 
for  SRSUPDXX. 
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3.13.5  Output.  There  are  two  outputs  from  this  program.  One  Is  the 
updated  new  SRS  records.  These  records  were  originally  output  by  step  12 
and  are  updated  by  this  program. 

The  other  output  is  the  leftover  transaction  errors.  These  are  the 
transaction  errors  output  by  step  10  which  were  not  matched  by  the  new 
SRS  records  (from  step  12). 

A sample  of  the  printer  output  for  program  SRSUPDXX  follows. 
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// 15719191  JCB  (70IR.MP13) .’PRCCRUS  UPOT • . T YPRUN=HOLD . 

//  RD  = NR  » MSGLEVEL  = ( l • 1 I • 

//  TIME=<10> 

//JCBLIB  OO  DSN=HQMCI . MP I . LGADL I B . D I SP= SHR 
//STEPONE  EXEC  PGM- 1 EHPROGM  « REG I ON=80K 
//SYSPRINT  DO  SYSOUT=A 
//SYSOUT  DO  SYSOUT=A 
//SYS  IN  DD  * 

UNCATLG  OSNAME=HQMCl .MPI 2.C 1 080 . SRS . ERR S . TOT  7 703 
UNCATLG  OSNAME=HOMCl . MPI 2. C l 08 0 . SR S . ERR S. T0T780 3 
(JNCATLG  DSNAME=HQMC1  .MPI  2.C  I 080.SRS  .PCX77  03 
UNCATLG  DSNAME=HQMCI .MPI2.C1 080.SRS.PCX7803 
UNCATLG  0SNAM6=HQMC I.MPI2.CI080. SRS. CHECKP 
/* 

//  EXEC  LCOBUCLG,OFF  = MPI 1 ,SECT  = RETRV. 

//  P ARM. COB- (L  ZB, NODECK. LOAD. NODM A p.NOPMAP. SUPMAP.NDXREF . STATE. SXREF. 
//  *SIZE  = 11 4K  * « • BUF= 1 6K  * ) , 

//  REGION. LKED=90K, 

//  REGION. GO=200K 

//L IB. SY  SIN  OD  * 

-OPT  NOLIST 

-SEL  SRSUPDXX .WDVV.EXEC 

-END 

/* 

//COB  • SYS  I N DD  DSN  = E-SL  I B TE  MP 

//COB.SYSL IB  DD  DSN=H0MC I . A° 1 2 .COPYL I B. O I S»= SHR 

/* 

//LKED.SYSL IB  DD 
//  DD 

//  OD  DSN=HQMC1.AP12.MMSLIB,DI SP=SHR 

/* 

//GO .SYSPR INT  OD  SY SOUT  = A , DC B= ( RECFM=U A . BLKS I ZE  = l 33 > 

//GO.SYSCUT  OD  SYSCUT=A 
//GO .SYSUDUMP  DD  SYSOUT=A 
//GO . SY  SDBOUT  DD  SYSOUT=A 
//GO.ERRMESST  OD  SYSCUT=A 
//GO. ERR ME SR M OO  SYSOUT=A 

//GO.R AMSFILE  OD  DISP=SHR . DSN=HQMC 1 .MPI3.C1081 . P l 8 .R AMS. MM .G7 803V 00. 

//  OC8=<EROPT=SKP> 

//GO.STATFILE  DD  D 1 SP  = OL 0 . DSN=HQMC 1 . MP I 2 .C 1 030 . SRS . ERRS780 3 
//GO. INPUT  DD  D I SP  = OLD • D SN=HQM  CI.MPI 2.C1080.SRS.PNEW7803 

//GO. OUTPUT  OD  OISP=( .CATLG) . 

//  OSN=HQMC 1 .MPI 2. C 1 0 80 . SRS .PCX 7803 , 

//  UN IT  = 2400— 3. 

//  DCB  = ( RECFM=VB» LRECL =60 00 . BLKS I ZE=  1 3030 ) 

//GO.STATERR  DO  D ISP  = ( NE W . C A TLG . CATLG ) , UN IT =24 0 0- 3 . 

//  OC  B = ( RECFM=FB , LRECL  = 2 40 , 8LKS I 2E=  240  0 ) . 

//  0SN=MQMC1 .MOI2.C 1 080 . SR S . ERR S. TOT7803 

//GO.SRSCKPT  DD  O SNA ME= HQMC 1 . MP I 2. C I 080. SRS . CHEC KP . UN I T = 3330 , 

//  DI SP= (NEW. CAT LG. CATLG! »SP  ACE= ( TRK , ( 22. 2) ,RLSE) 

/* 

//  EXEC  I EL  EASE • PAR  M=* 15719301* 

// 


003000 1 
000000.' 
00  JO  I 
0000004 
000000  ' 
OOOOOO’ 
0000007 
0 0 0 0 0 0 f 

oooooo 
000001 0 
oooooi : 

00000 l 
000001 
000001 
000001 t 
00000 1 
000001 
00000  I 
00000  1 
000002 
000002 
000002 
000002 
000002 
00000? 
000002 
oor  12 

000  J2f  , 

000002- 

000003s 

000003 : 

000003.' 

000003 

000003- 

000003 

000003 

000003 

0 000  0 3.“ 

000003° 

0000040 

000004 1 

00000  4 ? . 

0000043 

0000044 

000004'.' 

000004  4-. 

000004  r 

000004F 

000004° 

000005(1 

0000051 

00004 S3 

oo'  m 
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Note  1.  Tilt* 
tho  same  as  the  DSN 


DSN  in  the  uncatalog  statement  (line  100)  should  he 
in  the  STATERR  DD  statement  (line  480). 


Note  2.  The  DSN  in 
the  same  as  the  DSN  in  the 


the  uncatalog  statement  (line  120) 
OUTPUT  DD  statement  (line  430). 


should  he 


Note  3.  The 
the  same  as  the  DSN 


DSN  in  the  uncatalog  statement  (line  130)  should  be 
in  the  SRSCKPT  DD  statement  (line  490) . 


Note  4.  The  DSN  in  the  RAMSF1LE  DD  statement  (line  380)  is  the 
name  of  the  current  RAMS  file. 


Note  5.  The  DSN  in  the  STATFILE  DD  statement  (line  400)  is  the 
name  of  the  error  file  output  by  step  10. 


Note  6.  The  DSN  in  tho  INPUT  DD  statement  (line  410)  is  the  name 
of  the  new  SRS  records  output  by  step  12. 

Note  7.  For  each  subsequent  SRS  System  run,  the  DSNs  in  lines  90, 
100,  110,  120,  400,  410,  430  and  480  should  be  changed  to  reflect  a new 
date.  This  is  done  by  adding  three  months  to  the  "date  portion"  of  the 
DSNs  on  these  lines. 
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3.13.7  Program  Maintenance.  The  comments  made  in  Section  3.10.7  apply  to 
this  program. 

If  program  changes  are  necessary,  the  following  sequence  of  cards 
will  retrieve  the  source  program  from  LIBRARIAN  and  compile,  link  edit, 
and  replace  the  original  load  module  in  L0ADL1B. 


f 
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//IS70J152  JOB  (601R ,MPl 2) , • TEEPLES-COMO  UPDXX • , T I ME= l 0 3 ) 
" EXEC  LCUBUCL.CFF=MPI 1 . SEC T = R ET P V ,LL 1 B = LL A 0L I B . P C CM  = MP I . 
//  L MEM  = SRSU'-*OXX 

''/LtB.SYSlN  DO  * 

-OPT  NULIST 

-SEE  srsupdxx.wdvv.exec 

-ENO 

/* 

//COU.SYSIN  OO  OSN=fcCLIBTEMP 

//CC8.SYSLIB  OO  DSN-=HQMC  1 . AP  1 2 . CCPYL  I B . DI  SP  = SHR 
/* 

//LKEO.SYSLIB  OO 
//  OO 

OO  OSN=MQMC l . API 2. MMSL IB . 01 SP=SHR 

/* 

// 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
O 0000080 
00000090 
00000100 
000001 10 
00000120 
00000 1 30 
00000140 
00000150 
00000160 


( 
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3.13.8  Checkpoint/Rcstart . The  comments  made  in  Section  3.10.9  apply  to 
this  program. 
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3.14.1  Final  Merge  Process.  This  process  merges  the  updated  new  records 
output  from  step  13  with  the  matched  and  changed  records  output  from  step 
12  to  yield  a complete  SRS  History  File.  A second  step  produces  a backup 
on  tape. 

3.14.2  Input.  The  two  inputs  required  for  the  merge  are:  1)  the  matched 
and  changed  records  from  step  12  and  2)  the  updated  new  records  from  step  13. 

3.14.3  Output.  The  output  from  this  merge  is  the  complete  SRS  History 
File  on  disk.  A second  step  executes  a IEBGF.NER  program  to  produce  an  SRS 
History  File  backup  on  tape. 

A sample  of  the  printer  output  from  the  final  merge  process  follows. 
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3.14.4  .lob  Control  Language  for  Execution  of  Process.  Tlie  following 
listing  shows  the  complete  set  of  JCL  and  control  cards  for  the  mi  rge 
execut ion . 
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'/IS  .9301  Jll-J  ( 701R  . MP  I 3 ) t»F  INAL  MRG‘  . T YPRUN=HCLO. 

"/  TIME=(12> 

'/5I£I»I  EXEC  PGM= lERRCCOO . REG ION  = l 50K 
'/SORTCIP  DO  OSN=SYSl .SCRTL IP.OI SP=SHR 
'/SYSUOUMP  DD  SYSCUT=A 
VSYStlUl  00  S Y SO  U T = A 

'/SORT  I NO  1 DO  OSNsHOMC l . MP l 2 .C 1 080. SHS . PCPG 780 3 . O t SP  = OLD 
'/SOM  T I N 02  DO  USN=HQMC l .MPI2.C1 38 0.  SR S.  PC X 78 0 3 . D 1 SP-GLO 

'/surtout  no  osn=homc  i .mpi 2 .ci oeo .srs-mas r ,c isp=old 

'/SYSIN  00  * 

RECORD  TYPE^V.LtNviTH— (3563. ..2ae.288) 

MERGE  F IELOS-(  3b. 10.CH.A) 

V EXEC  PGM - I EHPKUGM  ,REGI ON=80K. CUNO=( 0 * GT * STEP  1 ) 

VSYSPRINT  OO  SVSOUT-A 
VSYSOUI  OO  S Y SC U T = A 
/SYSIN  00  * 

ONCATLG  DSNAME*MQMCl  . MP I 2 . C I OH 0 . SR S ,FM /BO 3 

/ IEQGENER  EXEC  PGM= I E HGENER . ME G I C N= l 5 OK , CC ND= < 0 . GT . ST EP 1 > 
VSYSPRINT  OO  S Y SOU  T = A 
/SYSIN  DO  DUMMY 
VSYSUTl  OO  DISP-ULD. 

/ OSN=HOMC 1 .MPI 2.C I080.SRS-MASI  . 

/ UNI T-3330.VCL=PRI VATE. 

/ DC H-—  <RECFM  = VH  . LREC.C— 6 000  . OL  K S I 2E- l 3 030  ) 

/SYSUT2  OO  OSN  = HOMC  1 .MPI 2.C 1 OEO. SRS.EM7802 ,0  I SP  = ( .CATLG)  . 

/ CNl T- 240 0-3 ,0C0= (RE CFM^VO.LPE CL = 8 000. OCKS I ZE  = 13030) 

* 

/ 


000000 10 
00000020 
00000030 
00000040 
00000050 
OOOOOObO 
00000070 
00000080 
00000090 
00000100 
00000  1 10 
00000120 
00000 1 30 
00000 140 
00000150 
0 00  00 1 SO 
000001 70 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
000002 60 
00000270 
00000280 
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Note_  1 . 

the  s.iitk'  as  t Ik> 

Note  2. 

I In1  name  of  the 


The  OSN  in  the  uncatalog  statement  (line  170)  should  be 
DSN  in  the  SYSHT2  DD  statement  (line  250). 

The  DSN  in  the  SORTINOl  DD  statement  (line  70)  should  be 
matched  and  changed  records  output  by  step  12. 


the 


Note  i. 
name  o f t lie 


The  DSN  in  the  SORTIN02  DD  statement  (line  80)  should  be 
updated  new  records  output  by  step  13. 


Note  4.  The  DSN  in  the  SORTOUT  DD  statement  (line  90)  is  the  name 
of  the  SRS  History  File  on  disk. 

Note  5.  The  DSN  in  the  SYSUT2  DD  statement  (line  250)  is  the  name 
of  the  SRS  History  File  on  tape. 


Note  6.  For  each  subsequent  SRS  System  run,  the  DSNs  in  lines 
70,  80,  170  and  250  should  be  changed  to  reflect  a new  date.  This  is 
done  by  adding  three  months  to  the  "date  portion"  of  the  DSNs  on  these 
lines. 
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3.14.5  Process  Maintenance.  The  only  field  used  in  this  process  is  the 


MID  field. 
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STATISTICAL  RETRIEVAL  SYSTEM 
AND  RATE  GENERATOR 


DATA  ELEMENT  DICTIONARY 


8 September  1978 


The  George  Washington  University 
Program  in  Logistics 
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data  element  Active  - Inactive  Flag 

DATA  ELEMENT  SYNONYMS: 

I.  DESCRIPTION  AND  FORMAT  - 

This  flag  indicates  the  status  of  the  record  and  will  be  set  to  active 
by  enlistment  STATS  and  set  to  inactive  by  separation  STATS 


2.  AUTHORITY/CODE  REFERENCE  - 1 * Active 

2 - Inactive 

3.  source  - Constructed 

«.  maintenance  - changed  each  time  an  enlistment  area  is  opened  or  closed. 


5.  specifications 


1 

Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MM S 

SRS 



ACT- IN ACT- FLAG 

- - , — — J 

ACTINACT 

1 

AN 

- 

NA 

NA 

( . notes 
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DATA  ELEMENT  AFF.ES-C  ScOTCS 

DATA  CLEMENT  SYNONYMS:  _ 

. DESCRIPTION  AND  EORMAT  - 

This  is  a sot  of  10  A FEES  "C"  scores.  The  scores  are  CO,  FA,  EL,  OF, 
oM,  MM,  CL,  SI,  err,  St..  1 his  field  is  tilled  for  enlisted  only. 


. AUTHORITY.  CODE  REFERENCE 

. SOURCE  - RAMS 

. MAINTENANCE  - 


5.  SPECIFICATIONS 
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DATA  ELEMENT  AFEE  Form  Numher 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT 


A code  representing  the  number  of  the  Armed  Forces  Entrance  and 
Examining  Station  Form.  This  field  is  filled  for  enlisted  only. 


2.  AUTHOR 1 TY / CODE  REFERENCE 


3.  SOURCE  ~ RAMS 


«.  MAINTENANCE  - 


5.  SPECIFICATIONS 
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data  element  AFEES  Mental  Croup  Score 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Mental  group  score  from  the  AFEES.  This  field  is  filled  for  enlisted  only. 


I 

2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - RAMS 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


System 

File 

Mneim 

3nic 

Field  Format 

Source 

File 

Field  Pos. 

in  File 

Note 

Ref 

Cobol 

Mark  IV 

APL 

Size 

Type 

MMS 



SRS 

AFEE-MNTL-GP-SCORf 

A-MG-S 



2 

AN 

RAMS 

428-429 
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DATA  element  AFEES  Test  FI 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT 


A code  to  identify  the  type  test  used  to  determine  the  AFQT  Score  or 
a computed  AFQT  equivalent  score.  This  field  is  filled  for  enlisted 
only. 


2 . AUTHORITY/CODE  REFERENCE 


3.  SOURCE  - RAMS 


«.  MAINTENANCE  - 


5.  SPECIFICATIONS 


0 = Armed  Forces  Women’s  Selection  Test  - AFWST 

1 = Armed  Forces  Qualification  Test  - AFQT 

2 = Armed  Services  Vocational  Aptitude  Battery  - ASVAB 


Mnemonic 


yetem  IFile 


MMS  SRS  AFEE-TEST-FLAG  A-TEST-F 


Field 

Format 

Size 

Type 

AN  RAMS  430 


1.  Marine  Corps  adopted  ASVAB  as  of  1 July  1974 
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DATA  EUSHEMT  ALAT 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Aimv  language  aptitude  test  score.  This  field  is  filled  for  enlisted 
on  1 y . 


J.  AUTHORITY/CODE  REFERENCE  - 


i.  SOURCE  - RAMS 

«.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemon  ic 

Field 

F o rm.t  t 

Source 

Field  Poe. 

Noto 

Syntom 

Filr 

Cobol 

Mark  IV 

API, 

Si  7.0 

Type 

File 

in  File 

Ref 

MMS 

SKS 

Aijvr 

At  .at 

1 

2 

AN 

RAMS 

567-568 

l . 

- to  - 


6 


NOTES 


DATA  ELEMENT  ArgJL  _COVUlL 
DATA  ELEMENT  SYNONYMS: 
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1.  DESCRIPTION  AND  FORMAT  - 

This  is  a table  of  15  counters  for  keeping  track  of  the  number  of 
occurrences  of  each  of  the  variable  areas  of  the  SRS  record.  Each 
time  a new  occurrence  (for  a particular  area)  happens,  the  appropriate 
counter  will  be  incremented  by  1. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  source  - Computed 


4.  MAINTENANCE  - 
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data  element  Armed  Forces  Active  Duty 
Base  Date 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

This  is  in  packed  decimal  form:  YYMMDD.  This  date  is  a constructive  date 
computed  from  active  service  performed  in  any  branch  of  the  Armed  Forces, 
as  modified  by  time  lost  or  periods  not  creditable  as  active  Federal  service. 


2.  AUTHOR I TY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 


4.  maintenance  - This  will  be  replaced  in  update  process. 


S.  SPECIFICATIONS 


iystem 


File 


Mnemonic 


Cobol 


Mark  IV 


AFAD-BD 


APL 


Field  Format 


Size 


Type 


PN 


Source 

File 


STAT 


Field  Poa. 
in  File 


134-137 


Note 

Ref 
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data  element  BeRln  Date 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Part  of  transfers  area  (#10).  This  is  the  date  of  a given  transfer. 
It  is  normally  the  commencement  date  of  the  current  tour  at  a Marine's 
present  monitored  command. 


2.  AUTHORITY/CODE  REFERENCE 


3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemon ic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

£ 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MMS 

SRS 

BEGIN- DATE 



DAT-CTB 

4 

PN 



STAT 

84-87 

j 

I 

6 . NOTES 


TM-60423 


1.  DESCRI PTION  AND  FORMAT 

Duty  MOS. 


DATA  ELEMENT  Bi  llot 

Specialty 

DATA  ELEMENT  SYNONYMS: 


jational 


2.  AUTHOR I TY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  maintenance  - Replaced  during  update. 

5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Field  Poe. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 



Size 

Type 

1 

in  File 

Ref 

89-92 
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OAT  A ELEMENT  Bonua  IlSte 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 


Part  of  bonus  area  (#13).  Depicts  the  action  date  of  the 


AUTHORITY /CODE  REFERENCE 


SOURCE  - STAT 


MAINTENANCE  - 


5.  SPECIFICATIONS 


pm  iFilo 


*S  I SRS I BONUS- DATE 


Mnemon ic 


_ I Field  Format  Source  Field  Poa . 

Mark  IV  ATL  ]si*e  1 Type  File  in  rile 


BON- DATE  4 PN  STAT  3-6 


NOTES 
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data  element Bonus  Type 

DATA  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

Part  of  bonus  area  (#13).  This  field  indicates  the  multiplier  which  was 
used  to  determine  the  VRB.  The  multiplier  is  based  on  an  individual's 
primary  MOS.  VRBs  were  discontinued  at  the  end  of  FY74. 


2.  AUTHOR  I TY/COOE  reference  - Valid  multipliers  were  1,  2,  3 and  4. 

3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


6 . NOTES 


12 
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data  element Civilian  Education  - Current 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  EORMAT  - 


This  is  a two-part 
level  at  the  current 


field  consisting  of  years  of  education  and  degree/ 
time. 


2.  AUTHORITY /CODE  REFERENCE 


3.  SOURCE  - ST  AT 

4.  maintenance  - Replaced  during  update. 

5.  SPECIFICATIONS 


System 

File 

Mnemc 

>nic 

Field  Format 

Source 

File 

Field  Pos. 

in  File 

Note 

Ref 

Cobol 

Mark  IV 

APE 

Size 

Type 

MMS 

SRS 

YEAR- ED 

DECREE 

— 

YRS-ED-C 

ED-LEV-C 

2 

1 

AN 

AN 

STAT 

119-120 

121 

6 . NOTES 
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DATA  ELEMENT  Civilian  Education  --Entry 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 


This  is  a two  part  field  consisting  of  years  of  education  and  degree/ 
level  upon  entry  into  service. 


2 . AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

«.  maintenance  - Will  not  be  changed  in  update. 

S.  specifications 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  iv 

APL 

Size 

Type 

File 

in  File 

a 

MMS 

SRS 

YEARS-ED 

DEGREE 

YRS-ED-E 

ED-LEV-E 

2 

1 

AN 

AN 

STAT 

119-120 

121 

i 

6 . NOTES 


- 15  - 


TM-oO.',.’  \ 


DATA  I'U  MI  NT  . U'lU’t.t  UtlLC 
1'ATA  ELEMENT  SV  NON  VMS  : 


1. 


DESCRIPTION  AN!>  FORMAT  - 

!•  ic  lil  lias  format  ol  WMM.  Represents  the  date  of  out  rv  Into  service. 
T.»kon  from  RAMS  AKAPBD.  This  field  is  filled  for  enlisted  only. 


J.  AUTHORITY  CODE  REFERENCE  - 


J.  SOURCE  - RAMS 


4.  MAINTENANCE  - 


■».  SPECIFICATIONS 


Syetom 

Fllo 

Mnemonic 

Kiel  A Fotm.lt 

Source 

rile 

Fie IJ  Po». 

in  File 

No » e 

Ref 

Cobo  l 

M.trk  IV 

APL 

5 l *C' 

Type 

MMS 

SRS 



COHORT  -PATE 

COHORT 

1 





AN 

RAMS 

S0b-!>11 

k 

ft . NOTES 


ll 


TM-60423 


data  element Component  Code 

DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 


Part  of  enlistment  area  (#4).  a two 
which  identifies  branch  of  service  and 
status. 


position  code  (left  justified) 
also  indicates  reserve  or  retired 


J.  AUTHORITY/CODE  REFERENCE  - CODESMAN 


3.  SOURCE  - ST  AT 

4.  MAINTENANCE  - 

5.  SPECIFICATIONS 


System 

File 

Mnemonic 

Field  Format 

Source 

File 

Field  Poa. 

in  File 

Note 

Ref 

Cobol 

Mark  IV 

APL 

Sire 

Type 

MM S 

SRS 

COMPONENT-CODE 

C0MP-CD3 

— . , . _ 

3 

AN 

STAT 

107-109 

6 . NOTES 
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TM-60423 


data  element  Date  from  Unauthorized 
Absence 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Part  of  UA-long  area  (#8).  This  is  the  date  that  an  individual  returned 
from  an  unauthorized  absence  long  (more  than  24  hours). 


2.  AUTHORITY/CODE  REFERENCE  - 

3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


System 

File 

Mnemonic 

Field  Format 

Source 

File 

Field  Pos. 

in  File 

Note 

Ref 

Cobol 

Mark  IV 

APL 

Size 

Type 

MMS 

SR S 

FROM- UA- DATE 

D-FROMUA 

i 

L 

4 

PN 

. . — . — 

STAT 

3-6 

■ 


TM-60423 


data  element  Date  of  Birth 


DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT 


This  is  a packed  decimal  form:  YYMMDD. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - ST  AT 


4.  MAINTENANCE  - Will  not  be  changed  in  update 


5.  SPECIFICATIONS 


TM-60423 


data  element  Date  of  Enlistment 

DAT*  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

Part  of  enlistment  area  (H).  This  is  the  date  of  current  enlistment, 
reenlistment  or  induction  and  is  on  the  enlistment  contract  or  record  of 
induction  or  acceptance  of  appointment. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - ST  AT 

4.  MAINTENANCE  - 


TM-60423 


r 


hAi'A  FI.F.MKNT  yi  Latest I'.x t fiisl on 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 


Part  of  extensions  area  (#5).  Depicts  the  action  date  of  the  latest 
extension  of  the  enlistment  indicated  by  the  enlistment  cross-reference 
i lag. 


AUTHOR I TY/CODF  REFERENCE  - 


TM- 60423 


DATA  ELEMENT  Date  of 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 


l art  of  grades  area  (// 6).  Date  of  promotion  or  demotion 


TM-60423 


First -Commission 


DAT*  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 


Part  of  grades  area  (06).  The  date  of  rank  assigned  for  the  grade  into 
which  an  officer  was  first  commissioned.  For  all  officers,  the  GRADE  field 
in  the  first  grades  area  is  ' DFC'  and  the  DATE-OF-RANK  field  in  the  first 
grades  area  is  the  DATE  OF  RANK  FIRST  COMMISSION  for  the  officer. 


2.  authority/code  reference  - 


3.  SOURCE  - HMF 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


TM-60423 


data  element  Date  of  Unautho r izod  JVb se n c e 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 

Part  of  UA  short  area  (// 7).  This  is  the  date  for  an  unauthorized 
absence  that  is  less  than  24  hours. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


TM-60423 


DATA  element  Date  to  Desert!  on 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Part  of  desertion  area  (#9).  This  is  the  date  that  an  individual 
went  on  desertion. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MM S 



SRS 

TO-DES-DATE 

. — ...  — _ . - — 

D-TO-DES 

4 

PN 

- 

STAT 

3-6 

1 

6 . NOTES 


25 


TM-60423 


data  ei.ement  Date  to  Unauthorized  Absence 

DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Part  of  llA-long  area  (#8).  This  is  the  date  for  an  unauthorized 
absence  that  is  more  than  24  hours. 


2.  AUTHORITY/CODE  REFERENCE 


3.  SOURCE  - STAT 

«.  MAINTENANCE  - 


5.  SPECIFICATIONS 


6 


NOTES 


TM-60423 


data  element  Depot-C-Scorei 

DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 

This  area  consists  of  11  depot  scores.  The  scores  are  CO,  FA,  EL,  OF, 
GM,  MM,  CL,  ST,  GT,  SC,  RC.*  This  field  is  filled  for  enlisted  only. 


AUTHORITY/CODE  REFERENCE 


TM-60423 


data  element Depot  Form  Number 

DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 


Indicates  the  form  number  of  the  test  taken  at  the  depot.  This  field 
is  filled  for  enlisted  only. 


2 .  AUTHORITY /CODE  REFERENCE  - 


3.  SOURCE  - RAMS 


4.  MAINTENANCE 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

. . 

Type 

File 

in  File 

Ref 

MMS 

SRS 

DEPOT- FORM-NUMBER 



D-FORM-N 

2 

AN 

RAMS 

1141-1142 

j 

6 . NOTES 


TM-60423 


TM-60423 


DATA  ELEMENT Depot  Tpsf  Oarp 

DAT*  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

Date  is  of  the  form  YYMMDD.  Indicates  the  date  the  individual  took 
the  depot  test.  This  field  is  filled  for  enlisted  only. 


— 


TM-60423 

data  element  Duty  Limitation  at  Entry 
DAT*  ELEMENT  SYNONYMS:  


1.  DESCRIPTION  AND  FORMAT  - 

This  is  a code  representing  any  duty  limitation  at  entry  into  service. 
This  field  is  filled  for  enlisted  only. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - RAMS 

4.  MAINTENANCE  - 


S.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

0 

MMS 

SRS 

Duty- Limit- Entry 

DUTY- LMT 

i 

AN 

RAMS 

485-487 

L 

6 . NOTES 


TM-60423 


DATA  ELEMENT  EDPT  Score 

DATA  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

Electronic  data  processing  test  score.  This  field  is  filled  for  enlisted 
only . 

2.  AUTHORITY/CODE  REFERENCE  - 

3.  SOURCE  - RAMS 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

fSmi 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

i 

MMS 

SRS 

EDPT 



EDPT 

— 

3 

AN 

RAMS 

870-872 

6 . NOTES 
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TM-60423 


DESCRIPTION  AND  FORMAT  - 


DATA  element  Enlistment  frnss  Rofprpni-p 
Flag 

DAT*  ELEMENT  SYNONYMS: 


Part  of  extension  area  (#5).  This  Is  a cross  reference  code  to  tie 
a particular  extension  to  the  appropriate  enlistment  area.  Area-count  (4) 
is  moved  to  this  location.  Area-count  (4)  points  to  the  current  (last) 
enlistment. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


A.  NOTES 


- 33  - 


TM-60423 


data  element Ethnic  Grouj 

EAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

A code  representing  ethnic  group. 


2.  AUTHORITY/CODE  REFERENCE  - Codesman 


3.  SOURCE  - STAT 


4.  maintenance  - Will  be  updated. 

5.  specifications 


System 

File 

Mneim 

:>nic 

Field  Format 

Source 

File 

Field  Poa. 

in  File 

Note 

Ref 

Cobol 

Mark  IV 

APL 

Size 

Type 

MMS 

SRS 

Ethnic-Group 



Ethnic 



i 

AN 

- -■  ■ ■ ml 

STAT 

194 

6 . NOTES 


- 34  - 


TM-60423 


DATA  element  Expiration  of  Active  Service  - 
Actual 

DATA  ELEMENT  SYNONYMS:  


1.  DESCRIPTION  AND  FORMAT  - 

This  data  element  reflects  the  date  on  which  active  service  terminates. 
For  regular  enlisted  personnel,  EAS  is  the  date  of  expiration  of  current 
enlistment  or  voluntary  extension  of  enlistment.  Regular  officers  have 
no  EAS.  The  EAS  is  automatically  adjusted  to  reflect  lost  time.  The 
date  is  in  YYMMDD  format. 

2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 


4.  maintenance  - will  be  replaced  in  update  process. 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

MMS 

SRS 

Actual-EAS 

- 

EAS-ACTU 

6 

AN 

STAT 

66-71 

6 . NOTES 


1.  Replaced  by  Expiration  of  Current  Contract  on  March  1978. 


TM-60423 


oat  a element  Expiration  of  CyrteRL  Contract 

DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

1 he  data  element  reflects  the  date  on  which  a legal  contract  executed  by  a 
Marine  expires.  An  expired  ECC  will  suspend  computation  of  leave,  pay, 
allowances,  and  terminate  payment  of  allotments.  ECC  is  automatically 
adjusted  to  reflect  time  lost.  The  date  is  in  YYMMDD  format. 

For  regular  enlisted  personnel  ECC  is  the  date  of  expiration  of  current 
contract  excluding  voluntary  extensions  thereof  executed  but  not  effected. 
Voluntary  extensions  of  enlistment  will  adjust  the  ECC  only  after  the  exten- 
sion Is  effected.  The  acceptance  of  a unit  diary  statement  reporting  the 
execution  of  an  agreement  to  extend  will  flag  the  record  to  allow  a 30-day  grace 
period  after  expiration  of  ECC,  prior  to  suspension  of  the  record.  Regular  offi- 
cers will  not  have  an  ECC  until  request  for  resignation  or  retirement  is  approved. 

?.  AUTHORITY/ CODE  REFERENCE  - 


3.  source  - STAT 


4.  maintenance  - will  be  replaced  in  update  process. 


S.  SPEC IF ICAT IONS 


6.  NOTES 

1.  Replaces  Expiration  of  Active  Service  - Actual  as  of  March  1978. 


36 


TM-60423 


data  element  Former  Monitored  Command 
Code 

DAT*  ELEMENT  SYNONYMS: 


l.  DESCRIPTION  AND  FORMAT  - 


Part  of  transfers  area  ( //10) . Upon  receiving  a JD  STAT,  the  former  MCC 
from  the  STAT  file  is  placed  in  this  field. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 


4.  MAINTENANCE 


TM-60423 


data  ELEMENT  Grade  (Rank) 
DATA  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

Part  of  grades  area  (// 6). 


2.  AUTHORITY/CODE  REFERENCE  - 

3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


S.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MMS 

5RS 

GRADE 

PRES-GRD 

3 

AN 

STAT 

31-33 

6 . NOTES 


38 


Field  Format  1 Source  I Field  Poe. 


APL  I Size  | Type  File  I in  File 


RAMS  741-746 
714-719 


TM-60423 


DATA  element  Graduation/Separation  Flag 

DATA  ELEMENT  SYNONYMS : 


1.  DESCRIPTION  AND  FORMAT  - 


This  is  a flag  that  indicates  whether  the  GRAD-SEP-DATE  is  for  graduation 
or  separation  from  the  recruit  depot. 


2.  authority/code  reference  - 1 = Separated 

2 = Graduated/Transferred 


3.  SOURCE  - Constructed 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Cobol 

Mark  IV 

APL 

Size 

Type 

TM-60423 


data  element  Home  of  Record  - County 

DAT*  ELEMENT  SYNONYMS : 

I.  DESCRIPTION  AND  FORMAT  - 

A code  representing  the  home  county  or  city  at  time  of  enlistment. 


2.  AUTHORITY/CODE  REFERENCE  - Codesman 


3.  SOURCE  - STAT 

4.  maintenance  - Will  not  be  changed  in  update. 
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TM-60423 


DATA  element  Home  of  Record  - State 
DAT*  ELEMENT  SVNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

A code  representing  home  state  at  enlistment. 


2.  AUTHORITY/CODE  REFERENCE  - Codesman 

3.  SOURCE  - ST AT 

4.  maintenance  - Will  not  be  updated. 

I 5.  SPECIFICATIONS 


TM-60423 


data  element  Initials 

DATA  ELEMENT  SYNONYMS : 

1.  DESCRIPTION  AND  FORMAT  - 

Marine's  initials.  In  the  format  of  LFM  (last  initial,  first,  middle). 


2.  AUTHORITY/CODE  REFERENCE  - 

3.  SOURCE  - STAT  file. 

4.  MAINTENANCE  - 


- 43  - 


TM-60423 


DATA  ELEMENT  l.isL  ('h:inpr 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Date  is  in  form  YYMMDD.  The  date  of  the  last  MCASC  cycle  taken  from 
the  KC  cycle  date  which  updated  the  Marine's  SRS  record. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - ST  AT 

4.  maintenance  - Replaced  during  update. 

5.  SPECIFICATIONS 


TM-60423 


data  element  Last  Name 
DATA  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 

Marine's  last  name. 


2.  AUTHORITY/CODE  REFERENCE  - 

3.  source  - STAT  record. 

4.  maintenance  - Updated  from  STAT  records. 

5.  SPECIFICATIONS 


System 

File 

Mnerm 

anic 

Field  Format 

Source 

File 

Field  Pos. 

in  File 

9 

Cobol 

Mark  IV 

APL 

Size 

Type 

MMS 

SRS 

Name 

J 

Name/ 

L-Name 

' -l 

20 

AN 

STAT 

150-169 

6 . NOTES 


TM-60423 


data  element  Length  of  Enlistment 
DAT*  ELEMENT  SYNONYMS. 


X.  DESCRIPTION  AND  FORMAT  - 


Part  of 
in  years. 


enlistment  area  (#4).  This  is  the  length  of  time,  expressed 
for  which  a Marine  enlists,  is  inducted  or  reenlists. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MMS 

SRS 

LNG- ENLISTMENT 

LEN-ENL 

■mI 

1 

AN 

STAT 

8 

6 . NOTES 


TM-60423 


1.  DESCRIPTION  AND  FORMAT  - 

This  is  the  code  of  the  MCC  where  the  Marine  enlisted.  This  field  is 
filled  for  enlisted  only. 


2.  AUTHORITY/CODE  REFERENCE  - 

3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


Mnemonic 

Field 

Format 

Cobol 

Mark  IV 

APL 

Size 

Type 

ystem  File 


SRS  MCC-Enlisted 


TM-60423 


DATA  element  Marital  Status 

DATA  ELEMENT  SYNONYMS:  


1.  DESCRIPTION  AND  FORMAT  - 

This  identifies  the  legal  status  of  the  marriage  of  a Marine. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  maintenance  - Replaced  during  update. 

5.  SPECIFICATIONS 


Mnemc 

3nic 

Field 

Format 

Source 

Field  Pos. 

M 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

1 

MMS 

SRS 

Marital-Status 

MAR-STAT 

1 

AN 

— j 

STAT 

215 

< . NOTES 


- 48  - 


V hr 


r 


TM-60423 

data  element  Military  Identification  Number 
DATA  ELEMENT  SYNONYMS: 


( 


i.  DESCRIPTION  AND  FORMAT  - 

Marine's  Social  Security  Number. 


2.  AUTHORITY/CODE  REFERENCE  - 


3.  source  - Originally  copied  from  A-type  STAT  record. 

«.  maintenance  - will  not  be  changed  except  for  AN/239  type  STATS  (SSN  change). 


TM-60423 


DATA  ELEMENT  MOS 
DATA  ELEMENT  SYNONYMS  i 


1.  DESCRIPTION  AND  FORMAT  - 

I art  of  MOS  area  (#12).  This  Is  the  date  of  change  In  the  primary  MOS. 


J.  AUTHOR I TV /CODE  REFERENCE  - 


J.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


System 

File 

Mnemonic 

Field  Format 

Source 

File 

Field  Poe. 

in  rile 

Note 

Ref 

Cobol 

Mark  IV 

APL 

Sire 

Type 

MMS 



SRS 

MOS- DATE 

MOS DATE 

i 



A 

- 

PN 

STAT 

3-6 

' 

j 

i 

1 

t . NOTES 


TM-60423 


data  element  Numher  of  nependenEa  - Current 

DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT 


Current  number  of  dependents.  If  number  of  dependents  is  greater  than  9, 
9 is  entered. 


2.  AUTHORITY/CODE  REFERENCE 


J.  SOURCE  - STAT 


4.  maintenance  - Replaced  during  update. 


TM-60423 


DATA  element  Number  of  Dependents  - Entry 
DATA  ELEMENT  SYNONYMS:  

1.  DESCRIPTION  AND  FORMAT  - 

Number  of  dependents  upon  entry  into  service.  If  number  is  greater 
than  9,  9 is  entered. 


2.  AUTHORITY /CODE  REFERENCE  - 

J.  SOURCE  - STAT 

4.  maintenance  - Will  not  be  changed  at  update. 


5.  SPECIFICATIONS 


Mnemonic 

1 1 

Source 

Field  Poe. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Sire 

Type 

File 

in  rile 

Ref 

MMS 



SRS 

NUM-DEP- ENTRY 

NUMDEP-E 

1 

AN 

— 

STAT 

' 

113-114 

1 

i__  - 1 

53  - 


TM-60423 


data  element  Pay  Entry  Base  Date 
DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  ANO  FORMAT  - 


This  is  in  packed  numeric  form:  YYMMDD. 


AUTHORITY/CODE  REFERENCE  - 


SOURCE  - STAT 


maintenance  - Will  be  replaced  in  the  update  process. 


SPECIFICATIONS 


yatem  iFile 


Mnemonic 


Field  Format  1 Source  Field  Pos. 
APL  |si*e  I Type  I File  in  File 


TM-60423 


data  element  Present  Monitored  Command 
Code 

DAT*  ELEMENT  SYNONYMS: 


1.  DESCRIPTION  AND  FORMAT  - 


l art  of  transfers  area  (#10).  This  represents  the  command  level  to  which 
personnel  are  assigned  by  HQMC. 

Upon  receiving  a JD  STAT,  the  present  MCC  from  the  STAT  record  is  placed 
in  this  field. 


TM- 60423 


data  E lkment  Primary  Military  Occupational 
Specialty 

DATA  ELEMENT  SYNONYMS: 


l.  DESCRIPTION  AND  FORMAT  - 


Part  of  MOS  area  (#12).  This  field  is  posted  from  any  ST AT  that  is 
used,  if  the  MOS  has  changed. 


J.  AUTHOR 1TY/CODE  REFERENCE  - 


3.  SOURCE  - ST  AT 


4.  MAINTENANCE 


S.  SPECIFICATIONS 


Mnemonic 


yatrm  IFl le 


MMS  SRS  I PRIMARY- MOS 


Field  Format  Source  Field  Pos. 


APL  I Size  { Type  | File  jin  File 


4 AN  STAT  56-59 


TM-60423 


DATA  ELEMENT Program  ”n  list  »»ft  Knr 

DATA  ELEMENT  SYNONYMS)  


1.  DESCRIPTION  AND  FORMAT  - 

A code  depleting  the  speei^'c  program.  If  applicable,  under  which  a 
Marine  contracted  his  original  obligation. 


i.  AUTHORITY/CODE  REFERENCE  - CODESMAN 


3.  SOURCE  - STAT 

4.  maintenance  - Will  not  be  changed  in  update. 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Poe. 

System 

i 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

MMS 

SRS 

PROG-ENL-FOR 

1 

PGMENLFR 

. ■ m - 

2 

AN 

...  - ■ ■ J 

STAT 

192-193 

6 . NOTES 


- 57 
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DATA  ELEMENT  _ Race 

DAT*  ELEMENT  SYNONYMS: 

DESCRIPTION  AND  FORMAT  - 


AUTHORITY/CODE  REFERENCE  - Codesman 

SOURCE  - STAT 

maintenance  - Will  not  be  updated. 

5.  SPECIFICATIONS 


yatem 

■ 

Mnemonic 

Cobol 

Mark  IV 

SRS 


TM-60423 


1.  DESCRIPTION  AND  FORMAT  - 

Flag  indicating  whether  or  not  RAMS  update  is  required.  Flag  will 
be  set  to  1 after  RAMS  data  is  entered  into  record,  or  after  18  months 
if  no  RAMS  data  is  available. 


2.  authority/code  reference  - 1 = No  RAMS  update  required. 

2 = Need  RAMS  update. 


3.  source  - Constructed 

4.  maintenance  - 


Mnemonic 

Field 

Format 

Cobol 

Mark  IV 

APL 

Size 

Type 

y»tem  iFilel  Cobol 


MMS  SRS  RAMS-NEED-FLAG  RMSNDFLG 


TM-6042 ) 


i'ata  n.iMiNT  Report i an  Unit  Co«l« 

OAT*  ELEMENT  SYNONYMS i 

1.  DESCRIPTION  ANO  FORMAT  - 

Part  of  transfers  area  (#  10).  Represents  the  unit,  activity  or  subunit 
to  which  the  individual  is  assigned  for  reporting  purposes . Upon  transfer, 
the  Rl)C  is  replaced  by  zeros. 


3.  AUTHORITY /CODE  REFERENCE  - 


3.  SOURCE  - STAT 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


TM-hl)423 


hATA  element  Separnt  1 on  Cody 

DAT*  ELEMENT  SYNONYMS  I _ 

1.  DESCRIPTION  AND  rOUMAT  - 

1 .Trt  ol  on  1 1. stmt'll t •irt'.i  ( W) , This  codo  rot  loots  tho  reason  for 
separation  of  the  Individual  from  the  Marine  Corps. 


TM-60423 


data  element  Separatior 


DATA  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 


Part  of  enlistment  area  (#4). 


AUTHORITY/CODE  REFERENCE  - 


SOURCE  - STAT 


MAINTENANCE  - 


SPECIFICATIONS 


TM-60423 


DATA  ELEMENT  Sex 
DATA  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 


2.  AUTHORITY/CODE  REFERENCE  - Codesman 


3.  SOURCE  - STAT 

4.  maintenance  - Will  not  be  updated. 

5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

‘ - - 

Siz© 

Type 

File 

in  File 

Ref 

MMS 

SRS 

Sex 

1 

Sex 

1 

AN 

STAT 

10 

6 . NOTES 


64 


r 


TM-60423 


DATA  ELEMENT 
OAT*  ELEMENT  SYNONYMS: 


DESCRIPTION  AND  FORMAT  - 


Part  of  enlistment  area  (#4).  Reflects  the  source  from  which  the 
current  obligation  was  contracted. 


TM-60423 


DATA  eleme*  Source  Flag 

DATA  ELEMENT  SYNONYMS: 

1.  DESCRIPTION  AND  FORMAT  - 

This  is  a constructed  field  indicating  the  source  of  the  record  to  SRS. 


2.  AUTHORITY/CODE  REFERENCE  - 


0 = Record  created  from  A- type  STAT. 

1 « Record  created  from  HMF  in  initial  file  build. 

2 » Record  created  from  HMF  through  procrustean 


process. 


3.  source  - Constructed 


4.  maintenance  - will  not  be  changed  in  update. 


s.  specifications 


66 


I 

1 


TM-60423 


i 


DATA  element Strength  Category 

DATA  ELEMENT  SYNONYMS: 

u 

1.  DESCRIPTION  AND  FORMAT  - 

A code  intended  to  describe  the  type  or  nature  of  the  individual's  service 
within  a unit.  Current  coding  practices  provide  that  the  individual  will  be 
assigned  the  strength  category  of  his  new  assignment  upon  departure  from  his 
old  duty  station.  Consequently,  based  on  strength  category  code,  an  individual 
may  be  projected  into  his  new  unit  even  though  he  has  not  yet  been  joined  by 
that  unit.  If  an  intermediate  MCC  is  involved,  the  strength  category  is  set 
on  the  initial  transfer  and  not  the  final  MCC.  Certain  categories  do  not 
become  applicable  until  the  states  have  lasted  for  some  time,  i.e.,  a patient 
only  after  30  days  hospitalization  or  IHCA  over  30  days.  As  a result;  duty 
status  should  be  used  to  count  the  IHCA,  hospitalized  or  prisoner  population. 
Part  of  transfers  area  (#10). 

2.  AUTHORITY/CODE  REFERENCE  - 


3.  source  - STAT 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemon ic 

■ 

BBS 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

MMS 

SRS 

STREN-CAT 

STR-CAT 

L . 

1 

AN 

STAT 

133 

6 . NOTES 


- 67  - 


TM-60423 


oata  element  Total  Months  Extensions 
OAT*  ELEMENT  SYNONYMS: _____ 

I.  DESCRIPTION  AND  FORMAT  - 

Tart  of  extensions  area  (#5).  Total  number  of  months  of  all  contracted 
extensions  on  the  enlistment  referenced  by  the  Enlistment  Cross  Reference 
Flag. 


2.  AUTHORITY/CODE  REFERENCE  - 


j.  SOURCE  - STAT 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

Note 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

Ref 

MMS 

SRS 

TOT-MON-EXT 

- - - 

EXT-MON 

2 

AN 

STAT 

213-214 

6 . NOTES 


- 68  - 


1 


TM-60423 


DATA  ELEMENT  Total  Nrnnhgr  Fit fen a 1 f>n« 
DATA  ELEMENT  SYNONYMS;  


DESCRIPTION  AND  FORMAT  - 

Tart  of  extensions  area  (#5).  Total  number  of  extensions  on  the 
enlistment  referenced  by  the  Enlistment  Cross  Reference  Flag. 


2 . AUTHORITY/CODE  REFERENCE  - 


3.  source  - Computed 

4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


System 

File 

Mnemonic 

Field  Format 

Source 

File 

Field  Poa. 

in  File 

Cobol 

Mark  IV 

APL 

Sire 

Type 

MMS 

SRS 

TOT-NUMB- EXT 

EXT-NUM 

- — m 

1 

AN 

— 

COMPUTED 

NA 

t . NOTES 
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TM-60423 


DATA  ELEMENT  Typing  Spnrc 
DATA  ELEMENT  SYNONYMS ; 

1.  DESCRIPTION  AND  FORMAT  - 

This  field  is  filled  for  enlisted  only. 


2.  AUTHOR I TY/CODE  REFERENCE  - 


i 


3.  SOURCE  - RAMS 


4.  MAINTENANCE  - 

5.  SPECIFICATIONS 


Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

MMS 

SRS 

TVPINC 

TYPG-SCO 

3 

AN 

RAMS 

873-875 

6 . NOTES 


70 
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data  element  U A- Long  Flag 
DATA  ELEMENT  SYNONYMS: 

l ^ 

1.  DESCRIPTION  AND  FORMAT  - 


Tart  of  UA-long  area  (// 8).  This  flag  indicates  the  status  of  past 
postings  to  this  area.  The  flag  refers  to  the  TTC  codes  from  the  STAT 
file  that  were  posted  against  a particular  unauthorized  absence.  The 
codes  are  listed  below. 


2.  AUTHORITY/CODE  REFERENCE 


3.  source  - Constructed 


= U1  posting 
= U1-U5 
= U1-U7 
= U1-U5-U9 
= U1-U6 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


1 

■ 

Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

MMS 

SRS 

UA-FLAG 



uaflag 

1 

AN 

NA 

NA 

6 . NOTES 


TM-60423 


data  element  UA-short  Flag 

DATA  ELEMENT  SYNONYMS: ') 


1.  DESCRIPTION  AND  FORMAT  - 


Part  of  UA-short  area  (//7)  constructed  field.  The 
status  of  past  postings  to  this  area.  It  refe. 0 to 
the  STAT  file  that  were  posted  against  a particular 
short.  The  codes  are  listed  below. 


flag  indicates  the 
the  TTC  codes  from 
unauthorized  absence- 


2 . authority/code  reference  - 1 = Normal  UA  entry. 

2 = UA-U9  entry. 


3.  source  - 


4.  MAINTENANCE  - 


5.  SPECIFICATIONS 


■■ 

Mnemonic 

Field 

Format 

Source 

Field  Pos. 

System 

File 

Cobol 

Mark  IV 

APL 

Size 

Type 

File 

in  File 

1 

MMS 

SRS 

UA-SH-FLAG 

UASHFLG 

1 

AN 

NA 

NA 

6 . NOTES 
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TM-60423 


DATA  ELEMENT  Zone 
DATA  ELEMENT  SYNONYMS : 


DESCRIPTION  ANr  FOkMAT  - 

Part  of  bonus  area  (#13).  This  indicates  the  number  of  installments 
in  which  the  VRB  was  paid  to  a Marine  who  had  reenlisted. 


AUTHORITY/CODE  REFERENCE 


SOURCE  STAT 


MAINTENANCE  - 


SPECIFICATIONS 


Mnemonic 


Field 

Format 

Size 



Type 
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